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APPLE II® PROFESSIOIMAL SOFTXA/ARE 



PIE TEXT EDITOR 

PIE (PROGRAMMA IMPROVED EDITOR) 
is a two-dimensional cursor-based editor 
designed specifically for use with memory 
mapped and cursor-based CRT's. It is totally 
different from the usual line-based editors, 
which were originally designed for Teletypes. 
The keys of the system input keyboard are 
assigned specific PIE Editor function 
commands. Some of the features included in 
the PIE system are: Blinking Cursor; Cursor 
movement up, down, right, left, plus tabs; 
Character insert and delete; String search 
forwards and backwards; Page scrolling; 
GOTO line number, plus top or bottom of 
file; Line insert and delete anywhere on screen; 
Move and copy (single and multiple linesh 
Append and clear to end of line; Efficient 
memory usage. The following commands 
are available in the PIE Text Editor and each 
is executed by depressing the systems argu- 
ment key simulataneously with the command 
key desired: 
[LEFT] Move cursor one position to 

the left 
[RGHT] Move cursor one position to 

the right 
[UP] Move cursor up one line 

[DOWN] Move cursor down one line 
[BHOM] Home cursor in lower left 

left hand corner 
[HOME] Home cursor in upper left 

hand corner 
I-PAG] Move up (toward top of file) 

one "page" 
[+PAG) Move down (toward bottom 

of file} one "page" 
[LTAB] Move cursor left one 

hori2ontal tab 
[RTABJ Move cursor right one 

horizontal tab 
[GOTO] Gototopof file (line 1) 

[ARGln[GOTOl Go to line 'n' 
[BOT] Go to bottom of file 

(last line + 1 ) 
I-SCH] Search backwards {up) into 

file for the next occurence of 
the string specified in the last 
search command 
[ARG]t[-SCHl Search backwards for 

string 't' 
[+SCH] Search forwards (down) into the 

fiie for the next occurence of the 
string specified in the last search 
command 
[ARG] t[+SCHl Search forward for string 't' 
(APP] Append -move cursor to last 

character of line +1 
[INS] Insert a blank line beforere 

the current line 
[ARG] n [ I NS] Insert 'n' blank lines before 

the current line 
[DEL] Delete the current line, saving 

it in the "push" buffer 
[ARGl n[DEL] Delete 'n' lines and save the 
first 20 in the "push" buffer 
[DBLK] Delete the current line as long 

3S it is blank 
[PUSH] Save current line in "push" 

buffer 
fARGl n[PUSH] Save 'n" lines in the "push" 

buffer 
(POP] Copy the contents of the "push" 

buffer before the current line 
[GINS] Enable character insert mode 

[CINS] [CINS] Turn off character insert mode 
[BS] Backspace 

[G08] Gobble - delete the current charac- 

ter and pull remainder of characters 
to right of cursor left one position 
[EXIT] Scroll all text off the screen and 

exit the editor 
lARG] [HOME] Home Line - scroN up to 
move current line to top 
of screen 
[APP] [APPJ Left justify cursor on current 

line 
[ARG) I GOB] Clear to end of line 
Apple PIE Cassette 16K $19.95 

TRS-80P IE Cassette 16K 19.95 
Apple PIE Disk 32K 24.95 
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6800 FORTH 



Z'BOFORTH 



FORTH is a unique threaded language that is 
ideally suited for systems and applications 
programming on a micro-processor system. 
The user may have the interactive FORTH 
Compiler/Interpreter system running stand- 
alone in 8K to 12K bytes of RAM, The 
system also offers a built-in incremental 
assembler and text editor. Since the FORTH 
language is vocabulary based, the user may 
tailor the system to resemble the needs and 
structure of any specific application. 
Programming in FORTH consists of defining 
new words, which draw upon the existing 
vocabulary, and which in turn may be used 
to define even more complex applications. 
Reverse Polish Notation and LI FO stacks 
are used in the FORTH system to process 
arithmetic expressions. Programs written in 
FORTH are compact and very fast. 



SYSTEM FEATURES & FACILITIES 

Standard Vocabulary with 200 words 

Incremental Assembler 

Structured Programming Constructs 

Text Editor 

Block 1 /O Buffers 

Cassette Based System 

User Defined Stacks 

Variable Length Stacks 

User Defined Dictionary 

Logical Dictionary Limit 

Error Detection 

Buffered Input 



CONFIGURATIONS 

Apple FORTH Cassette 16K $34.95 

AppleFORTH Disk 32K 49.95 

PetFORTH Cassette 16K 34.95 

TRS-80FORTH Cassette 16K 34.95 

SWTPC FORTH Cassette 16K 34.95 



ASM/65 EDITOR ASSEMBLER 

ASM/65 is a powerful, 2 pass disk-based 
assembler for the Apple II Computer System. 
It is a compatible subset of the FORTRAN cross 
assemblers which are available for the 6500 
family of micro-processors. ASM/65 features 
many powerfuf capabilities, which are under 
direct control of the user. The PIE Text Editor 
co-resides with the ASM/65 Assembler to form 
a comprehensive development tool for the 
assembler language programmer. Following 
are some of the features available in the 
ASM/65 Editor Assembler. 

PIE Text Editor Command Repetotre 

Disk Based System 

Decimal, Hexadecimal, Octal, & Binary 

Constants 
ASCII Literal Constants 
One to Six character long symbols 
Location counter addressing "*" 
Addition & Subtraction Operators in 

Expressions 
High-Byte Selection Operator 
Low-Byte Selection Operator 
Source statements of the form: 

[label] [opcode] [operand] 

[;commentl 
S6 valid machine instruction mnemonics 
All valid addressing modes 
Equate Directive 
BYTE Directive to initialize memory 

locations 
WORD Directive to initialize 16-bit words 
PAGE Directive to control source listing 
SKIP Directive to control source listing 
OPT Directive to set select options 
LINK Directive to chain multiple text files 
Comments 
Source listing with object code and 

source statements 
Sorted symbol table listing 

CONFIGURATION 




Apple II 



48K/Disk 



$69.95 



LfSA INTERACTIVE ASSEMBLER 

LISA is a totally new concept in assembly language programming. Whereas all other assemblers 
use a separate or co-resident text editor to enter the assembly language program and then an 
assembler to assemble the source code, LISA is fully interactive and performs syntax/addressing 
mode checks as the source code is entered in, This is similar in operation to the Apple II Integer 
BASIC Interpreter, All error messages that are displayed are in plain, easy to understand English, 
and not simply an Error Code. Commands in LISA are structured as dose as possible to those 
in BASIC. Commands that are mcluded are; LIST, DELETE, INSERT, PR *n, IN*n, SAVE, 
LOAD, APPEND, ASM, and a special user-defineable key envisioned for use with "dumb" per- 
ipherals. LISA is DISK II based and will assemble programs with a textfile too long to fit into 
the Apple memory. Likewise, the code generated can also be stored on the Disk, hence freeing 
up memory for even larger source programs. Despite these Disk features, LISA is very fast; in fact 
LISA IS faster than most other commercially available assemblers tor the Apple II. Not only is 
LISA faster, but also, due to code compression techniques used LISA requires less memory 
space for the text file. A full source listing containing the object and source code are produced 
by LISA, in addition to the symbol table 
Apple II 32K/Disk $34.95 



PROGRAMMA 
IIMTERIMATIOIMALJIMC. 

3400 Wilshire Blvd. 
Los Angeles, CA 90010 

(213) 384-0579 • 384-1116 • 384-1117 

Apple II is a registered trademark of Apple Computers, Inc. These professional products 
are available at your local computer dealer. 
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See if you qualify for a CCi of DC p/f card 

and get great discounts on selected 

purchases for your Apple and PET. 



we have the Most Complete Stock of APPLE and 

PET software In Southern California. 

(Send for our Catalog — $1.00) 



16K RAM CHIP SET FOR APPLE II 

ONLY (Tested & Burned in) $95°° 



Reference Books For apple and pet Owners 

Programming the 6502 9.95 

PET User Manual (New from Commodore) .... 9.95 

First Book of KIM 8.95 

MOSTech Programming Manual (6502) 12.00 

MOS Tech Hardware Manual 12.00 



WORKSHOPS: Call for details. 

• PET— 3rd Saturday of the Month 
• APPLE— 4th Saturday of the Month 

CLASSES: Apple Topics 

we offer a series of classes on Apple ii to aquaint owners with some of the unique features and capabilities 

of their system. Topics covered are Apple sounds, Low Res. Graphics, Hi Res. Graphics, Disk Basics, and How to use 

Your Reference Material, sessions are held every Thursday Night at 7:00 p.m. 



HARDWARE 



HARDWARE FOR APPLE II 

• Upper & Lower case Board 

Now vou can display both upper and lower case characters on 
your video with the Apple ii. includes assembled circuit board 
and sample software 549.95 

• Programmer Aide 550.00 

PRINTER SPECIALS FOR APPLE AND PET 

• TRENDCOM 100 With interface for Apple or pet Saso.OO 

• LITE PEN used with TV or monitor screen 34.95 

LIMITED QUANTITY 

Refurbished selectric typewriters serially interfaced for plug in 
to APPLE II $1000.00 

All orders must t>e prepaid. Delivery In 4 to 8 weeks ARO or full refund. 

• Anadex DP-8000 with tracter 

8 * paper width and Apple interface S1050 

• Centronics 779-2 for Apple ii 

With parallel interface 51245.00 

SOFTWARE FOR APPLE 11 

• PASCAL from Programma 49 95 

• FORTH 49.95 

• LISP— from Apple Software Bk No. 3 N/c 

• LISA— interactive disk assembler 34.95 

• WHATSIT— Excellent conversational data base 

manager 32K 100.00 48K 125.00 

• SARCON— Best Chess we carry 19,95 

• APPLE PIE— Excellent text editor 24.95 

• FORTE— Music editor in hires 19.95 

• FASTCAMMON— Excellent backgammon game 

with graphics Tape 20.00 Disk 25.00 

• APPLE 21— Excellent blackjack game 9.95 

• BRIDGE CHALLENGER— computer bridge 14.95 

• FINANCIAL MANAGEMENT SYSTEM 



Accounts Payable 
Accounts Receivable 
inventory control 
5200 Each Package 



Ledger Processing 

Payroll 

5800 complete 

510 for Manual 



PET HARDWARE 

• PET 2001-8 Computer Standard PET with integral cassette 
and calculator type keyboard 8K bytes of memory 

(7167 net) $795.00 

• PET 2001 -16N computer PET with 16K bytes of memory 
' and large keyboard with separate numeric pad and 

graphics on keys. External cassette optional. 

(15,359 net) $995.00 

• PET 2001 -1 6B computer As above but has standard type- 
writer keyboard. No graphic keys $995.00 

• PET 2001 -32N Computer identical to 2001-1 6N with 32K 

bytes of memory. (31,743 net) $1,195.00 

• PET 2001-32B Computer identical to 2001-32B with 32K 

bytes of memory. (31,743 net) $1,^95.00 

•Retrofit kit required for operation with PET 2001-8. 
PERIPHERALS 

• PET 2021 Printer 80 column dot matrix electrostatic printer 
with full PET graphics capability $549.00 

• PET 2022 Printer 80 column dot matrix printer with plain 
paper or forms handling tractor feed. Has full pet 

graphics $995.00 

• PET 2023 Printer 80 column dot matrix printer. Plain 

paper printer with full PET graphics $849.00 

• PET 2040 Dual Drive Mini Floppy Disk' Dual drive intelligent 
mini floppy system. 343K net user storage 

capacity $1 ,255.00 

SOFTWARE FOR PET 

Mirrors and Lenses 19.95 

The States 14.95 

Real Estate i & 2 59.95 

Momentum and Energy . . 19.95 

Projectile Motion 19.95 

Mortgage 14.95 

Dow Jones 7.95 

Petunia Player Sftwr 14.95 



Checkers and Baccarat 7.95 

Chess 19.95 

Series Parallel and 

Circuit Analysis 19.95 

Home Accounting 9.95 

BASIC Math 29.95 

Game Playing with BASIC 

vol. I, II, III 9.95 each 



WHY SHOULD YOU BUY FROM US? 

Because we can help you solve your problems and answer your questions, we don't claim to know 
everything, but we try to help our customers to the full extent of our resources. 

—Prices subject to change.— 



COMPUTER COMPONENTS OF ORANGE COUNTY 

6791 Westminster Ave., Westminster, CA 92685 714-891-2584 

Hours: Tues-Fri 11:00 AM to 8:00 PM— Sat 10:00 AM to 6:00 PM (Closed Sun, Mon) 

Master Charge, Visa, B of A are accepted. No COD. Allow 2 weeks for personal check to clear. 

Add S1.50 for handling and postage. For computer systems please add S10.00 for shipping, handling anc 

insurance. California residents add 6% Sates Tax. 



Software: 



HARDWARE: 



PROGRESSIVE SOFTWARE 

Presents Software And Hardware For Your APPLE 



SALES FORECAST 

This program will give you the best forecast using the four most popular forecasting techniques, such as linear regression, 
log trend, power curve trend, and exponential smoothing. The pTOQTom uses artificial Intelligence to make the decision on 
the best fit, and displays all results for manual opeatlon If desired. Written by Neil D. Lipson, requires 16K memory. 

CURVE FIT 

Will take any number of data points in any faslon, and give you the choice of having the computer choose the best 
curve fit, or you may choose yourself what type of fit you desire. The four given are log curve fit, exponential curve fit, 
least squeres, and power curve fit. The results are then graphed. Written by Dave Garson, requires 16K memory. 

CALENDAR 

This program will perform two functions: days between dates (any two dates) or a perpetual calendar. If the calendar is 
chosen, it will automatically give the successive months by merely hitting the return key. May be used with or without a 
printer. Written by Ed Hanley, requires 16K memory. 

STARWARS 

The original and best starwars game, written by Bob Bishop. You fire upon the tie fighter after aligning the fighter in your 
ci'osshairs. This is a high resolution game in color that uses the paddles. Requires 16K memory. 

ROCKET PILOT 

This is an exciting game where you are on a planet taking off with your rocket ship, trying to fly over a mountain. The 
simulation of the rocket blasters actually accelerates you up, and if you are not careful, you will run out of sky. The contour 
of the land changes each time you play the game. Written by Bob Bishop, requires 16K memory. 

SPACE MAZE 

This game puts you in a maze with a rockey ship, and you try to "steer" out of It with your paddies or joystick, it's a real 
challenge. It is done In high resolution graphics In color, done by Bob Bishop. Requires 16K memory. 

SAUCER INVASION 

This program was written by Bob Bishop. You are being Invaded by a flying saucer and you can shoot at it with your 
missile and control the position with your paddle. Requires 16K memory. 

MISSILE-ANTI-MISSILE 

Missile-Antl-Mlssile is a high resolution game. The viewer wilt see a target appear on the screen, followed by a 3- 
dlmenslonai digital drawing of the United States. Then a small submarine appears. The submarine is controlled by hostile 
forces (upon pressing the space bar) which launches a pre-emptive nuclear strike upon the United States<controlled by 
paddle No. 1). At the time that the missile Is fired from the submarine, the United States launches its own anti-missile 
(the antl-mlsslle Is controlled by paddle No. 0). There are many levels of play depending upon the speed. Written by Dave 
Motelea and Neil Upson. Requires 16K memory. 

MORSE CODE 

This program allows the user to learn morse code by the user typing in letters, words or sentences in english. Then the 
dots and dashes are plotted on the screen. At the same time sounds are generated to match the screen's output. Several 
transmission speed levels are available. Written by Ed Handley. Requires 16K memory. 

POLAR COORDINATE PLOT 

A high resolution graphics program which provides the user with 5 primary classic polar coordinate plots and a method by 
which the user can Insert his own equation. When the user's equation Is inserted into the program it wilt plot on a 
numt>ered grid and then immediately after plotting, flash, in a table form, the data needed to construct such a plot on 
paper. The program takes 16K of memory and ROM board. Written by Dsve Moteies. 

UTILITY PAK1 

This Is a combination of 4 programs: (by VInce Corsetti) 
Integer to Applesoft Ck>nverslon - this program will convert any integer basic program to an appiesoft program. After you 
finished, you merely correct all of those syntax errors that occur with appiesoft only. 
Disk Append - will append any two Integer programs from a disk into one program. 

Integer Basic Ck>py - allows you to copy an Integer basic program from one disk to another by merely hitting return. 
Useful when copying the same program many times. 

Update Applesoft • will correct Appiesoft on the disk to eliminate the heading that always occurs when It is initially run. 
Binary C)opy - this program copies a binary file from one disk to another by merely hitting return. It automatically finds 
the length and starting address of the program for your convenience. 

BLOCKADE 

Two people try to block each other by buildings walls and blocking the other. An exciting game written in Integer basic for 
16K. Written by Vlnce Corsetti. 

TABLE GENERATOR 

Is a program which forms shape tables with ease. Shape tables are formed from directional vectors and the program also 
adds other Information such as starting address, length and position of each shape. The table generator allows you to 
save the shape table in any usable locatior; In memory. It Is an appiesoft program. Written by Summary Summers. 
Price: t9.05 

All Programt. $9.95 EACH 

All Progratnt are 16K unlMt apaclfkd. 



LIGHT PEN 

Includes 5 programs. Light Meter, which gives you reading of light every fraction of a second from to 588. The light graph 
will graph the value of light hitting the pen on the screen. The tight pen will "draw" on the screen points which you have 
drawn and then connect them. It will also give the coordinates of the points If desired, drawn in lo-res. The fourth program 
will do the same except draw it in hl-res. The fifth program Is a utility program that allows you to place any number of 
points on the screen for use In menu selection or In games, and when you touch this point. It will choose It. It Is not 
confused by outside light, and uses artificial intelligence. Only the hl-res light pen requires 4dK and ROM card. 
Written by Neil D. Lipson. 

Light P«n tupport«d by 5 programa $34.95 

Send Check or M.O. to P.O. Box 273, Ply. Mtg., PA 19462 Programs Accepted for Publication-Highest Royalty Paid 

Postage and Handling - Add t^.QO for first item then 50* for each add 'I PA Residents Add 6% Sales Tax 
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Open the manual and LOAD the cassette. Then get ready to explore 
the world of Programmable Characters' with the SCREEN MA- 
CHINE^". You can now create new character sets — foreign alpha- 
bets, electronic symbols and even Hi-Res playing cards, or, use the 
standard upper and lower case ASCI I character set. 

The "SCREEN MACHINE" lets you redefine any keyboard character. 
Just create any symbol using a few easy key strokes and the "SCREEN 
MACHINE" will assign that symbol to the key of your choice. For 
example: create a symbol, an upside down "A" and assign it to the 
keyboard 'A' key. Now every time you press the 'A' key or when the 
Apple prints an 'A' it will appear upside down. Any shape can be 
assigned to any key! 

mm::..:- 



The "SCREEN MACHINE" gives you the option of saving your 
character symbols to disk or tape for later use. There is no compli- 
cated 'patching' needed. The SCREEN MACHINE is transparent to 
your programs. Just print the new character with a basic print state- 
ment. The "SCREEN MACHINE" is very easy to use. 

Included on the cassette are Apple Hi-Res routines in SOFTAPES 
prefix format. You can use both Apple's, routines and the SCREEN 
MACHINE to create microcomputing's best graphics. 



Cassette, and Documentation, a complete package $19.95 
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MICROGAMMON 1.0 Learn, practice and inhance your Backgammon 
ability with a true competitor $14.95 

APPLE-LIS'NER Voice recognition Software. Create your own pro- 
grams which 'listen' and understand 31 spoken words — English or 
Foreign. No hardware needed $19.95 

APPLE TALKER Your Apple's voice. Create programs which talk to 
you in English or Spanish or any language $15.95 

JUPITER EXPRESS Command your ship thru the hazards of the 
Asteroid belt between Mars and Jupiter $9.95 

FORTE' A music language, written like basic, you use line numbers 
for your notes. You can trace line numbers or notes. You can even 
print the words of any song. Save your song to your Disk . $19.95 

FORTH 3C Is the creation of Wm. Graves. This language gives you 
faster execution of programs than basic and is easier to program than 
machine language. Our 100 page manual will teach you everything 
you will need. FORTH 3C comes complete with demo programs on 
one Apple diskette $49.95 

WHERE TO GET IT: Look for the SOFTAPE Software display in 
your local computer store. Apple dealers throughout the United 
States, Canada, South America, Europe and Australia carry the 
SOFTAPE Software line of quality products. 

If your local dealer is sold out of SOFTAPE Software you can order it 
direct from us by check or Visa/Master Charge. If you have any ques- 
tions please call us at: 
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BRIGHT PEN What is the difference between a light and a Bright 
Pen? Intelligent Software and extensive documentation . . . . $34.95 



VISA 



1-213-985-5763 




Or mail your order to the address below. We'll add your name to our 
mailing list for free literature and announcements of new products. 

SOFTAPEl" 

10432 Burbank Blvd. • North Hollywood, CA 91601 




A Baudot Teletype Driver for the APPLE II 



|tt Hard copy output can be economical If low cost surplus 
'^ components are adapted to a 6502 system. Once the I/O 
interface has been achieved, character code Incompati- 
bility need not be a problem. 



Lt. Robert Carlson, USN 

N0AOT 

3332 Crabapple Road 

Virginia Beach, VA 23452 



For many APPLE !i owners, the invest- 
nnent in a high quality ASCII printer has 
to be deferred for a while and, in the in- 
terinn, a printer of sonne sort is still high- 
ly desirable. One very inexpensive way to 
fill this need is to use the common Bau- 
dot Teletype. Typically, any of several 
models in good working order can be ob- 
tained for anywhere from $25 to 
$300. Large numbers of these units 
are made available as surplus by the 
telephone companies, the National 
Weather Service, and all branches of the 
Armed Forces. 

As surplus, they sell for a small fraction 
of their original value. Of course, these 
Teletypes use an obsolete five bit 
character code, Baudot, but the follow- 
ing program performs the conversion 
from Baudot to ASCII automatically. 
If for some reason you need to use an 
ASCII character that does not convert 
directly to Baudot, such as the *' = " 
sign, the program will print a space that 
you can fill in later. Alternatively, one 
could substitute some other Baudot 
character by changing the appropriate 
value in the lookup table. This problem 
is rarely encountered, except in certain 
BASIC program listings. 

The program combines ideas from many 
other programs, but basically it is an 
adaptation of Chuck Carpenter's pro- 
grams that appeared in MICRO 3:13 and 
4:27. The program makes use of AND, 
a one bit output port available on the 
paddle connector socket. There are no 
addresses used outside the program 
that can be "stepped on" by the system 
monitor or BASIC programs. White the 
printer is running, the characters will 
still appear on the video monitor normal- 
ly, as they are printed. 

Enter the program from the monitor at 
$300. From Integer BASIC use a "CALL 
768," and from Applesoft use something 
like A = USR 768. To exit while in the 
monitor, hit RESET and, when in either 
BASIC, use "PR#0." 

10 CALL 768 

20 PRINT "TESTING BAUDOT DRIVER 

1234567890." 

30 PR#0 

40 END 

To change from 60 WPM to 100 WPM 
operation, change the timing value at 
$377 from #$5F to #$48. The output can 
be inverted by exchanging the values at 
$36F and $374. 



0020: 


0300 


A9 


09 




0030- 


0302 


85 


56 




0040: 


0304 


A9 


03 




0050- 


0306 


85 


37 




0060 


0308 


60 






0070 


0309 


8C 


C2 


03 


0080 


030C 


8E 


C3 


03 


0090 


030F 


48 






0100: 


0310 


20 


2D 


03 


01 10 


0313 


68 






0120 


0314 


C9 


8D 




0130 


0316 


DO 


OC 




0140 


0318 


48 






0150 


0319 


A9 


00 




0160 


031B 


20 


2D 


03 


0170 


031E 


A9 


8A 




0180 


0320 


20 


2D 


03 


0190 


0323 


68 






0200 


0324 


AC 


C2 


03 


0210 


0327 


A£ 


C3 


03 


0220 


032A 


4C 


FO 


FD 


0230 


032D 


29 


7F 




0240 


032F 


A2 


3F 




0250 


0331 


DD 


81 


03 


0260 


0334 


FO 


07 




0270 


0336 


CA 






0280 


0337 


10 


F8 




0290 


0339 


A9 


04 




0300 


033B 


DO 


01 




0310 


033D 


8A 






0320 


033E 


C9 


20 




0330 


0340 


BO 


15 




0340 


0342 


2C 


C4 


03 


0350 


0345 


10 


OC 




0360 


0347 


48 






0370 


. 0348 


A9 


00 




0380 


. 034A 


8D 


C4 


03 


0390 


: 034D 


A9 


IF 




0400 


: 034F 


20 


66 


03 


0410 


: 0352 


68 






0420 


■ 0353 


20 


66 


03 


0430 


0356 


60 






0440 


0357 


2C 


C4 


03 


0450 


• 035A 


30 


F7 




0460 


: 035C 


48 






0470 


: 035D 


A9 


80 




0480 


: 035F 


8D 


C4 


03 


0490 


: 0362 


A9 


IB 




0500 


: 0364 


DO 


E9 




0510 


: 0366 


AO 


07 




0520 


: 0368 


18 






0530 


: 0369 


09 


EO 




0540 


: 036B 


48 






0550 


: 036C 


BO 


05 




0560 


: 036E 


8D 


59 


CO 


0570 


. 0371 


90 


03 




0580 


: 0373 


AD 


58 


CO 


0590 


: 0376 


A9 


5F 




Q600 


: 0378 


20 


A8 


FC 


0610 


: 037B 


68 






0620 


: 037C 


6E 


A8 


FC 


0630 


: G37F 


88 






0640 


: 0380 


DO 


E9 




0650 


: 0382 


60 







ORG 

LDAIM 

STA 

LDAIM 

STA 

RTS 

STY 

STX 

PHA 

JSR 

PLA 

CMPIM 

BNE 

PHA 

LDAIM 

JSR 

LDAIM 

JSR 

PLA 

LDY 

LDX 

JMP 

ANDIM 

LDXIM 

CMPX 

BEQ 

DEX 

BPL 

LDAIM 

BNE 

TXA 

CMPIM 

BCS 

BIT 

BPL 

PHA 

LDAIM 

STA 

LDAIM 

JSR 

PLA 

JSR 

RTS 

BIT 

BMI 

PHA 

LDAIM 

STA 

LDAIM 

BNE 

LDYIM 

CLC 

ORAIM 

PHA 

BCS 

STA 

BCC 

LDA 

LDAIM 

JSR 

PLA 

ROR 

DEY 

BNE 

RTS 



$0300 

$09 

$0036 

$03 

$0037 

$03C2 
$03C3 

$032D 

$8D 
$0324 

$00 
$032D 
$8A 
$032D 

$03C2 

$03C3 

$FDFO 

$7F 

$3F 

$0381 

$033D 

$0331 

$04 

$033E 

$20 
$0357 
$03C4 
$0353 

$00 
$03C4 
$1F 
$0366 

$0366 

$03C4 
$0353 

$80 

$03C4 

$1B 

$034F 

$07 

$E0 

$0373 

$C059 

$0376 

$C058 

$5F 

$FCA8 



$036B 
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FOR A FLOPPY DISK SASEO 


















V/SA AND MASTER- 
CHARGE ORDERS A RE 
BOTH ACCEPTED. 



Oil IVIn I5|>yyO- First floppy disk based computer 
for under $1000! A dramatic breakthrough in price and per- 
formance. Features OSI's ultra-fast BASIC-in-ROM, full graphics 
display capability, and large library of software on 
disk, including entertainment programs, personal finance, 
small business, and home applications. It's a complete pro- 
grammable computer system ready to go. Just plug-in a video 
monitor or TV through an RF converter, and be up and running. 
Can be expanded to 32K static RAM and a second mini-floppy. It also supports 
a printer, modem, real time clock, and AC remote interface, as well as OS-65D 

V3.0 development disk operating system. 



cnmpuTEnsHDP 



288 Norfolk St. (Cor. Hampshire St.) 
Cambridge, Mass. 02139 
617-661-2670 



590 Commonwealth Ave. 
Boston, Mass. 02215 
617-247-0700 



Route 16B 

Union, N.H. 03887 

603-473-2323 



# 



i 



structured BASIC Editor and Pre-processor 



Enter, list, modify and resequence BASIC programs with 
this versatile pre-processor for the OSI Challenger. Here 
is one editor that you can modify because it is written 
in BASIC. What's more, you can modify it in structured 
BASIC because the structured BASIC syntax is imple- 
mented as a bonus. 



Robert Abrahamson 
5533 25th Avenue 
Kenosha, Wl 53140 



This program is a line editor and pre- 
processor which converts a structured 
BASIC program into executable BASIC 
statements. It is written in Microsoft 
BASIC and takes up about 10K of mem- 
ory. Using only string operations, it 
changes IF THEN ELSE, DO WHILE, 
CASE, REPEAT UNITL, and REPEAT 
FOREVER structures into their equiva- 
lent forms. 

Besides these constructs, it also allows 
the use of subroutine names. The editor 
portion of the program can add lines, 
delete single lines, delete blocks of 
lines, modify existing lines, print out a 
single line, print out a block of lines, 
print out the complete text, and re- 
sequence all of the lines. Table I is a list 
of editor commands. 



The editor works by first reading in a 
string and comparing this string to a list 
of commands (see Figure 1). If it 
matches the string to a command, it then 
branches to the appropriate routine. 
Without a match, the program assumes 
that the string is a line of text. It next 
compares each character to a pound 
sign and a backwards slash. These 
characters are immediately changed to 
a comma or colon, respectively. Since 
BASIC does not accept commas or 
colons in an input string, this is a neces- 
sary inconvenience. 

After this, the program tries to parse out 
the line number and checks for at least 
one non-numeric character after the line 
number. A missing line number initiates 
an error message. Thus, an illegal com- 



Table I — Editor Command Summary 

RESEQ — Renumbers all lines in nnultiples in ten. 

LIST — Prints out entire text. 

LIST X — X is a valid line number. Prints out only line number X. 
The space between LIST and X is optional. 

LISTX Y — X is a valid line number, and Y can be any number. 
Prints out all lines from X to Y. There must be at least 
one non-numeric character between X and Y. 

DELX — Same restrictions as LIST X. Deletes only line 
number X. 

DEL X Y — Same restrictions as LIST X Y. Deletes all lines from 
XtoY. 

MODX — Same restrictions as LIST X. Allows you to modify 
line number X. Program asks for a stop character and 
repetition. 

NEW — Has theeffect of clearing the text by breaking links. 

BASIC — Command to start pre-processing. 



mand would cause a message stating 
that one forgot the line number. On the 
other hand, a line number without follow- 
ing text would be interpreted as a re- 
quest to delete that line number. 

Upon finding a line number and text, it 
strips the line number from the text and 
stores the line number, separately, in a 
doubly linked circular list with a head 
node at an index of zero (see Figure 3). 

The preprocessor alters the text re- 
ceived by the editor and returns control 
to the editor when processing is finished 
or an error is detected. First the pre- 
processor (see Figure 2) resequences 
the line numbers, insuring enough room 
to add lines later. The next step is to 
parse out the first token in the first line. 
This token is then compared with "SUB- 
ROUTINE." A match tells the program 
that this is a statement which declares a 
subroutine; to save the subroutine name 
and line number in the subroutine name 
table. 

Matching with CASE, THEN, 00, RE- 
PEAT, ELSE, or a semi-colon requires 
the program to parse out the arithmetic 
expression, if it exists, and store it, 
along with a structure type code and line 
index, on the stack. A match with "END" 
causes a record to be popped from the 
stack, and a branch to a routine which 
converts that type of structure into 
standard BASIC statements. 

If no match is found for any of these 
keywords, each character thereafter is 
compared with the ampersand, which 
is reserved for use only as the first 
character in a subroutine name. Finding 
an ampersand, the program parses out 
the subroutine name and stores it In the 
subroutine call table, along with line 
index, line length, and start and stop 
positions of the name. This same pro- 
cedure is then repeated for every line of 
text. After finishing this, the subroutine 
call table is read, and every subroutine 



July 1979 



MICRO— The 6502 Journal 



14:7 



name in the text is changed to a line 
number. This completes the pre- 
processing. 

There are a few things to keep in mind 
when using this pre-processor. You 
should be very careful when coding 
GOTO statements, because the line 
numbers are resequenced before pro- 
cessing. The structured input text is 
altered, and so the structured text for all 
practical purposes is lost. As for 
using the structured statements, follow- 
ing the examples in the printout should 
help. Remember that In all of the struc- 
tured statements spaces are necessary 
between words, and spaces must not be 
used within an arithmetic or logical ex- 
pression. This Is because the program 
uses the space, colon, and end of line 
to identify an expression or word ending. 
Multiple structured statements per line 
cannot be used because the program 
sees only the first one. 

This pre-processor is relatively easy to 
use with a cassette interface. First enter 
the structured program using the editor, 
then convert it to BASIC with the Basic 
command. When you see the message 
stating that pre-processing is finished, 
type in "LIST" but do not hit return. Turn 
on your cassette, and then hit return. 
You now have the program on tape and 
can load it like any other program. 



( START J 



INPUT LINE 




PERFORM 
COMMAND 



ADD IN COMMAS 
AND COLONS 



PARSE LINE 
NUMBER 



LINK LINE 

WITH REST 

OF THE LINES 

IN ORDER 



1 REM 

2 REM.... PRE-PROCESSOR TO CONVERT STRUCTURED BASIC TO 

3 REM.... BASIC 

4 REM.... 8Y ROBERT ABRAHAMSON 

5 REM.... 4 MAY 79 

6 REM. 



Figure 1; Editor Flow Chart 



10 DIM T$(100)>LL(101)»RL(101)»LN(101)»SC$<20)»ST(20»4) 
?0 DIM SO$(20)»SU(?0)»AR$(10)»SR(10)HN( 10) 

30 REM... INITIATE AVAILABLE POOL OF NODES 

40 F0R1=1T0995RL(I)=I+1:NEXTI 

50 RL(100)=0:AV=1:RL(0)=0!LL(0)=0 

60 INPUT SI 

70 REM... DECODE COMMANDS 

30 IFLEFT$(S$»3)="NEW"THEN30 

90 IFL£FT$<S$t3)="DEL"THEN860 

100 IFLEFT$(S$t3)='*MOOMHEN960 

110 IFLEFTJ(S$t4)=»LIST"THEN730 

120 IFLEFTI(S$»5)=»RESEQ*THENGOSU83 70»GOTO60 

130 IFLEFT$(S$»5)=''3ASIC»TH£N1790 

140 REM... ASSUME LINE OF TEXT .•••• 

150 GOSUB1320:GOSU8450 

160 1FPO0THEN190 

170 PR(NT"OK» WHERE'S THE LINE NUMBER?" 

180 6OTO60 

190 iFLGM THEN220 

200 6OSUB640t IF6N50THEN60 

210 GOSUB1220:GOTO60 

220 S$=RIGHT$(S$»LG-I ) 

230 REM... LOCATE WHERE TO ADD IN NEW LINE 

240 6N=LL(0) 

250 IF6N=0THENAN=0i6OTO340 

255 IFLN>LN<GN)THENAN=GNJGOTO340 

2 60 I FLN<LN(RL<0))THENAN=0J6OTO340 

270 GN=0 

280 GN=RL(6N)i IF6NS0THEN320 

290 IFLN=LN(6N)THENAN=LL(GN):GOTO330 

300 1FLN>LN(GN)ANDLN<LN(RL(GN))THENAN=GN16OTO3 40 

310 GOTO280 

320 PR|NT"I CAN'T FIND A SPOT FOR THE NEW L I NE." « GOTO60 

330 GOSUB1220 

340 GOSUB1160 

350 IFGN=0THENPR| NT^OUT OF TEXT SPACE" : GOTO60 

360 GOSUS1270»6OTO60 

370 REM 

380 REM.. .RESEQUENCE ROUTINE 

390 REM 

400 GN=0:LN=10 

410 GN=RL(GN) 

420 I FGN=0THENPRI NTiRETURN 

430 LN(6N)=LN!LN=LN^10 

440 GOTO410 

450 REM 

460 REM... FIND START OF LINE NUM8ER» PARSE IT OUT 

470 REM... INPUTS; S$-STRIN6 TO PARSE 

480 REM... OUTPUTS; P»)=START AND END OF LINE NUMBER 

490 RE«... LN =LINE NUMBER 

500 REM... LG =LENGTH OF S$ 

510 X=1 

520 LG=LEN(S$) 

525 IFX>LGTHENP=0iRETURN 

530 FORP=XTOLG 

540 ::A=ASC{M|0$(SS»P»1)) 

550 »MFA> = 48ANOA<=57THEN580 

560 NEXTP 

570 P=0tRETURN 

580 FORI=PTOLG 

590 i:A=ASC(MlO$(S$t| »1)) 

600 :t|FA<48ORA>57THENI=l-l!GOTO630 

610 NEXTI 

620 1=1-1 

630 LN=VAL(M!D$(S$»PH -P*1))iRETURN 

640 REM 

650 REM... SUBROUTINE TO FIND LINE NUMBER 

660 REM... INPUT LN=LINE NUMBER 

670 REM. •• OUTPUT GN=INDEX 
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680 HEn 

690 6N=0 

700 6NsRL(GN): IFGN=0TH6NRETURN 

710 IFLN=LN(GN)TH£NRETURN 

720 GOTO700 

730 REH 

740 REM... LIST ROUTINE •.••• 

750 REM 

760 GOSUe450 

770 IFPS0THEN820 

780 G0SUB64« 

790 |F6Nr0THENPRINT:GOTO60 

800 X = l*UGOSU8520f I FP=0TH£NPRI NTLN( GN) ; TS( GN) : 6OTO60 

801 PRINTLN(GN); T${GN)x6N=RL(GN) 

802 I FLN(GN)<=LNANOGN<>0THEN801 
810 'GOTO60 

820 GN=0 

830 GN=RL(GN)i I FGNs0TH£NPfl I NT! GOTO60 

840 PRfNTLN(6N); Tt(GN) 

850 GOTO830 

860 REM 

870 REM... DELETE COMMAND PROCEDURE ..••• 

880 REM 

890 GOSUd450 

900 IFPO0THEN920 

910 PRINT«WHERE'S THE LINE NUMBER?* i GOTO60 

920 GOSUB640 

930 IFGNS0THENPRINT-LI NE NOT FOUND" J GOTO60 

940 Xs|*i:GOSUB520* I FP=0 THEN6OSU81220J GOTO950 

941 G1sRL(GN)iGOSUB1220»6Ns61 

942 IFLN(6N)<sLNANOGN<>0TH£N941 
950 PRINT-DELETEO*:GOTO60 
960 REM 

970 REM... MODIFY COMMAND PROCEDURE ..... 
980 REM 
990 GOSUB450 

1000 I FP=0THENPRi NT»NO LINE NUMBER* : GOTO60 
1010 GOSU3<540 

1020 IFGN=0THENPR|NT"NOT FOUND*! GOTO60 
1030 PRINTLN(GN); T$(GN) 
1040 PRtNT^STOP CHARACTER*;: INPUTSTS 
1050 PRI NT''REP£TI TION- : n f^PUTF 
1060 PRINTLN(GN) ; 
1070 F0RP=1T0L£N(Tt{GN)) 
1080 !!PRtNT»*ID$(T$(GN)»PO); 
1090 t: IFMI0S(TS(GN)*PO)sST$TH£NFrF-1 
1100 :i !FF=<3THEN1120 
1110 NEXTP 
1120 INPUTSTS 

1130 S$=LEFT$( T$(6N)*P)>ST$ 
1140 GOSuei320!TJ(GN)rS$ 
1150 6OrO600 
1160 REM 

1170 REM.*. SUBROUTINE GETNOOE GN FROM POOL 
1180 REM 

1190 I FAVO0THEN1210 

1200 PRINT-OUT OF NODES* : GN=a: RETURN 
1210 GN=AViAV=RL(AV)tR£TURN 
1220 REM 

1230 REM... SUBROUTINE DELETE NODE GN rWQM LIST 
1240 REM 

12 50 RL(LL(6N))=RL(GN)!LL(RL(GN))=LL(GN) 
1260 RL(GN)sAV:AV=GN:R£TURN 
12 70 REM 

1280 REM... SUBROUTINE 400 NODE GN TO RIGHT OF AN 
1290 REM 

1300 RL(GN)=RL(AM):LI.(^>^)=A^i.'LL(.^L(AN))=6N 
1310 ftL(AN)rGN!LN(GN)=LN:TS(6N)=S$!RETURN 
1320 REM 

1330 REM... SUBROUTINE ADO IN COMMAS/COLONS TO TEXT 
1340 REM 
1350 LG=LENfS$) 
1360 F0R|=1T0L6 



INDEX 



ARITHMETIC STRUCTURE 
EXPRESSION TYPE CODE 



IN(Q) 



AR$(Q) 



SR(Q) 



Q POINTS TO THE TOP OF THE STACK 



STACK 
RECORD 



LEFT LINE TEXT RIGHT 
LINK NOMBEB LINK 


LL(I) 


LN(I) 


T$(I) 


RL(I) 


CIRCULAR DOUBLE LINKED LIST WITH HEAD NODE AT 1=0 



LINE OF 
TEXT 



NAME OF START POS. 
SUBROUTINE OF NAME 


END POS. LINE 
OF NAME LENGTH 


LINE 
INDEX 


SC$(SC) 


ST(SC,1) 


ST(SC,3) 


ST(SC,i|) 


ST(SC,2) 


SC POINTS TO 


THE LAST TABLE ENTRY 





SUBROUTINE 

CALL TABLE 









1 s r 


NAME OF LINE 
SUBROUTINE NUMBER 




SD*(SD) 


SU(SD) 




SD POINTS TO THE LAST TABLE ENTRY 


OF AN 


SUBRO 
DEFIN 
OR NAi 
TABLE 


UTINE 
ITION 
HE 
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1370 
1380 
1390 
1400 
1410 
14?0 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
20 70 
2080 
2090 
2100 



: : IFMIO$(S$»l * 1 )=••#" THENST $ = *•»■ i GOT 01400 

s: IFMIO$(S$»l »1)="\''TH£NST$ = »i"iGOTG1400 

i:6OTO1430 

:iS1$sLEFT$(SJt|-1)>ST$ 

It I FLG>I THENS1$ = S1J*RIGHT$(S$»LG-I ) 

MS$=S1$ 

NEXTI 

RETURN 

9EM 

R£M««« 

REM««« 

REM*** 

REN««« 

REM.*. 

REM*** 

REM*.. 



PARSE SU9R0UTI NE 
INPUTS; 



OUTPUTS; 



S$=STR|N6 TO PARSE 

P1=START POSI T! OH 

LG-LENGTH OF SS 

PlsSTART OF TOKEN 

P2=£N0 OF TOKEN ♦ 1 

TK$=TOK£N 
LG=LEN(SS)iTK$=-«««**- 

IFMI 0S(S$»P1t1)r" '•TH£NP1=P1+li^OTO1540 
F0RP2=P1T0L6 
i:TP$ = MiOS(SStP2M) 
:: |FTPS=» "THENieia 
t :IFTP$=»4»4NOP2>P1THEN1610 
l!lFTPS=-:"THEN1610 
NEXTP2 

TK$=MI0f(S$»P1»P2-P1) 
RETURN 
REM 

REM**. SUBROUTINE PUSH ONTO STACK 
REM. ..INPUTS; TK$=AR| THMETIC EXPRESSION 
REM... SR=STRUCTURE TYPE CODE 

REM*.. 1N=|N0EX 

Q=O*1i|FO>10THeNPRlNT'»STACK OVERFLOW ERROR'iSTOP 
AR$(Q) = TK$iSR(0) = SR: IN(0)=IN 
RETURN 
REM 

REM. ..SUBROUTINE POP OFF OF STACK 
REM.**OUTPUTS: TK$=AR I THMET I C EXPRESSION 
REM... SR = STRUCTIIRE TYPE CODE 

REM... IN=|NOEX 

IFQa0THENPR|NT"STACK UNDERFLOW ERROR'JSTOP 
TK$=ARS(0)iSR=SR(0):lN=tN(Q) 
0=0-1tRETURN 
REM 

REM... CONVERT STRUCTURED TO BASIC 

f^EM 

60S UB 3 70 

NL=0:SD=0:SC = 0iQ=0i6$=»GOTO"t6U=*REM" 

G2$a"THEN»JG3$ = ''lF<» 

NL=RL(NL)ilFNL=0THEN3150 

S$=T$(NL)xP1=lJ6OSU81450 

IFTKS = '»SUBROUTlNE»THENie90 

6OTO1960 

P1=P2:GOSUB1450 

IFLEFT$( TK$0)=«««» THEN 1930 

PRINT^ERROR IN SUBROUTINE NAME» NO «" 

PRI NTLN<NL);T$(NL)»6OTO60 

TS(NL)=61$*Tt(NL):SD=S0*1 

IFSO>20THENPRI NT'OUT OF SU8 TABLE SPACE* : GOTO60 

S0$(S0) = TK$tSU(SD)=LN(Nl):60T018 5i? 

IFTK$s«OO"THEN1980 

GOTO2040 

P1=P2:6OSUei450 

tFTK$ = '*WHILE**THEN2010 

PR!NT»ERROR IN DO WHILE STATEMENT SYNTAX" : GOTO1920 

P1aP2:GOSU81450 

SRrIt |N=NL:6OSU61630 

GO T0 18 50 

IFTK$=»REPEAT-THEN2060 

GOTO2150 

P1=P2!6OSU91450 

lFTK$=»UNTtL»THEN2110 

|FTKS"»FOREVER»TH£N2100 

PRINT*»ERRCR IN REPEAT STRUCTURE SY NTAX* i GCTO1920 

INrNLiSR=3: TK$a«»:GOTO2130 




Cla^iiiicli^ 



APPLE ;RENUMBp/^^f|^ 
and ; Applesoft ly^l^^ ' s ■ > i 
utility faM.^ y^^ or 

*apev includes^any other pro- 
grams as well vSASE for i^ 
order from: i 

Southwestern Data Systems 

Box 582-M 

Santee, CA 92071 

714/562-3670 



MAILINGS LIST PROGRAM ^^^^^f^^^^ 
Cassette prograin does 5 types; of 
sorting and 3 types of searching . 
Entry of information simplified. 
Instructions included. Send 
$ 19.95 in check/money order to: 
SOFTWARE TECHNOLOGY for COMPUTERS 
P.O.Box 428 
Belmont, MA 021 78I 



6502 MACRO Assembler and Text 
Editor / Over 40 cpmrn^ 
pseudo ops. Conditional^^ A^ 
and string searchHand replace, 
Versions for PETp^^ 
3ASE ■ f or ;inf o . $ A35^vao;> 2 . 00 S&H , 
.^C.W.v-Moser.^;' ■.:;-^ "■"/;;/ ,/,■-.;■■ 
3239 Linda Drive ;: 
Winston-Salem,; N>Cv 27106 

PET MACHINE LA|«G]|^ - 
Comprehensive ni&nual^^^M^ 
oh us ing the PET ^^^^ and out- 
put Jroutlnes > ciSclcs |Lrid? t^ 
floating , f ix^j a^i^SClI number 
conversibh routi^ 
arithn^trie fiiiG^^ 
machine langmg^ipr^ 
iac/8K o^^^^^^ 




isaciiaii 



• 



14:10 



MICRO— The 6502 Journal 



July 1979 



Synergetics MC-7 

Advertise in MiGRO^^^^^^^^f^^^ 
|io.dd ! ! ! 1 

as the ones above, may be ru 
thi s new Classified Ad section 
for $ 1 ; 00 .Ad may not exceed 
six lines^ and only one a^^^^^^ 
person , company , etc .; Must r e- 
late to 6502 type stuff , and ad 
must be; prepaid. You wil^I^ 
over 6502 reader J3 1 11 



IBSBBTSD 




FOB 


• , . . . . 


XOOE 


Software 




Hardware 


AD 


Employment 




Swap 


Ad Deadline: 


Sell 


5th of Month 


Buy 



( 




IM- 



FO Box 6502 
Cheirhsfbrd/M^s$ 0182^ 



iiaa®a®i 



2110 P1=P2tG0$U81459 

2120 Sft=2:|N=NL 

2130 GOSU81630:T$(^*L)»61S*T$(NL) 

2140 G0T0185«} 

2150 IFTK$ = »CASE''THEN2170 

2160 6OTO2220 

2170 T$(**L)=G1$*T$(NL) 

2180 |N=NL:3R=4iTK$r»* 

2190 GOSU81*530iGOTO1850 

2220 IFTK$=*;»THEN2240 

2230 6OTO2270 

2240 P1=P2xGOSUei450 

2250 SR=5t IN=NL:GOSU81630 

2260 GOTO1850 

2270 IFTK$=«TH£N"TH£N2290 

2280 GOTO2370 

2290 P1=P2»GOSU91450 

2300 IFTK$ = »OOMhEN2320 

2310 PRlNT-ERf^OR IN IF-THEN 00 STATEMENT SYNTAX" t GOT0 1920 

2 320 NM=LL(NL)JP 1=1 »S$=T$(NM):GOSUB 1450 

2 330 I FTK$<>**I F"THENNL»NMXGOTO2310 

2340 P1=P2»GOSUB1450 

2350 SRs6! I N=NMiGOSUB1630 

2360 6OSUB1850 

2370 IFTK$=-ELSE"TH£N2390 

2380 GOTO2420 

2 390 SR=7;|N=NLXTK$=-"!GOSUB1630 

2400 T$(NL)=G1$+T$(NL) 

2410 GOTO1850 

2420 tFTK$ = "ENO''THEN2440 

2430 GOTO2470 

2440 IFQ>0THEN6OSUB1710»GOTO2450 

2445 PRINT»TOO MflNr END S TA TEMENTS" t GOTO60 

2450 ON SR GOTO 2570»2 720*2670 f 29 70»2820 »29e0 • 3040 

2470 F0RP1=P2T0LG 

2 480 J: I FWIO$(S$tP1»1)=»4MHeN2510 

2490 NEXTP1 

2500 6OTO1850 

2510 6OSU81450 

2520 SC»SC*1 

2530 I FSC>20THENPRI NT"OUT OF 

2540 ST(SC»1)=P1JST(SC»3)=P2: 

2550 ST(SC»2)=NL:SCS(SC)=TK$ 

2560 GOTO2470 

2570 REM 

2580 REM... CONVERT DO/WHILE STRUCTURE 

2590 REM 

2600 EN=LN(NL):OW=LN( IN) 

2610 T$(NL)=G1$+TS(NL) 

2 620 T$( I N)=G3S+TK$+G2$+STRf(OW*10) 

2 630 LN=0tf+1:S$=G$+STR$(EN):AN2| N 

2640 6OSU81160!GOSUB1270 

2 650 LN=EN-1:S$=GS+STR$(0W)iAN=LL<NL) 

2 660 GOSUB1160JGOSU612 70:GOTO18 50 

2670 REM 

2680 REM... CONVERT REPEAT FOREVER STRUCTURE 

2690 REM 

2700 T$(NL)=G$*STR$(LN( IN)) 

2710 GOTO1850 

2720 REM 

2730 REM... CONVERT REPEAT UNTIL STRUCTURE .< 

2740 REM 

2750 EN=LN(Nl):DW=LN( I N) 

2 760 T$(NL)=G3$*TK$*G2$+STR$(EN*2) 

2 7 70 LN=EN+1:S$=G$+STR$(0W)tAN=NL 

2780 GOSUBn60:GOSUB1270 

2790 LN=EN+2tS$=G1$»AN=GN 

2800 GOSU91160IGOSUB1270 

2810 GOTOie50 

2820 REM 

2830 REM..* CONVERT CASE STRUCTURE 

2840 REM 

2850 E0=LN(NL):S1=LN( iN)tPC=EO 

2860 T$(NL)=G1$*T$(NL) 

28 70 LN=S1*1:S$=6$*STR$(PC):AN=|N 



SUB CALL SPAC£":GOTO60 
:ST(SC»4)=LG 
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EPROM PROGRAMMER 
Model EP-2A-79 




SOFTWARE AVAILABLE FOR F-8, 8080, 6600, 
8065, Z-80, 6502, KIM-1, 1802, 2650. 
EPROM type is selected by a personality module 
which plugs into the front of the programmer. 
Power requirements are 115 VAC, 50/60 HZ at 15 
watts. It is supplied with a 36 inch ribbon cable 
for connecting to microcomputer. Requires IVj 
I/O ports. Priced at S155 with one set of 
software. Personality modules are shown below. 



Part No. 




Pr<»frafm 


Price 


PM-0 


TMS 


2708 


$15.00 


PM-1 




2704. 2708 


15.00 


PM-2 




2732 


30.00 


PM-3 


TMS 


2716 


15.00 


PM-4 


TMS 


2532 


30,00 


P.M-5 


TMS 


2516,2716,2758 


15.00 



Optimal Technology, Inc. 

Blue Wood 127, Earlysville, VA 22936 
Phone (804) 973-5482 



3880 GOSU81160JGOSU31270 

2890 T$( IN)sG3S+TK$*G2S>STR$(SU10) 

29^0 IFSR(O)<>5THEN2950 

2910 LN=S1-1:S$=G$*STRS(E0):an=LL( IN) 

2920 GOSUBn60:GOSUB1270 

2930 GOSUB1710tPC=SlJS1=LN( IN) 

2940 GOTO2870 

2950 GOSU31710: IFSR<>4THeNPRI NT"CASE ERROR" : NL=( Ni GOTO1920 

2960 6OTO1850 

2970 PR(NT»CAS£ ERROR" i NL = I N: GOT0 1920 

2980 REM 

2990 RE«».» CONVERT IF/THEN DO STRUCTURE 

3000 REM 

3010 T$(RL(tN))=G$*STR$(LN(NL)):T$(NL)=G1«*T$(NL) 

3020 T$<IN)=T$(IN)*G2t*STR$(LN( |N)*20) 

3030 GOTO1850 

3040 REM 

3050 REM*.. CONVERT IF THEN ELSE STRUCTURE 

30f)0 REM 

30 70 ED=LN(NL):T$(NL)=G1$+T$(NL):£L-LN(IN) 

3080 LN=EL-lsSS=G$*STR«(ED);AN=LL(fN) 

3090 GOSUB1160tGOSUei270 

3100 GOSUB1710 

3110 IFSR06THENPRI NT"IF TH£N ELSE ERROR" : NL = ( NJ GOTO1920 

3120 T$(RL(IN))=6S*STR$(EL) 

3130 T$(IN)=T$( IN)*G2$*STR$(LN( tN)*20) 

3140 GOTO1850 

3150 REM 

3160 REM«». SUBSTITUTE NUMBERS FOR SUBROUTINE NAMES 

3170 REM 

3180 IFSC=0THEN3320 

3190 IFSO=0TMENPRI NT"ERROR-NO SUBROUTINES OEFI NED" : GO TO3320 

3200 F0RI=1T0SC 

3210 ::F0RJ=1TOS0 

3220 !MJ(FSC$<I )=SO$(J)THEN3260 

3230 :JNEXTJ 

3240 ::PR1NT"ERR0R-SUBROUTINe •:SCS(I);" NOT DEFINED" 

3250 XJGOTO3310 

32 60 tJS$=Tf(ST(|t2)):LG=LEN(SS) 

32 70 ::F = LG-ST(I •4)tP1=ST(l »1) + F:P2=ST( I •3)*F 

3280 tJTK$=L£FT«(S$»P1-1)*STRS(SU(J)) 

3290 ::IFP2<=L6THENTH$=TK$>RI G"T$( S$»LG-P2+1 ) 

3300 :t T$(ST(I t2))=THS 

3310 NEXTI 

3320 PRINT"END OF PRE-PROCESS! NG" tPRl NTi GOTO60 



• 



RUN 



10 
20 

30 
40 
5« 
6« 
7» 
LI 

10 

20 

30 

40 

50 

60 

70 



REM EXAMPLE OF 00 WHILE STRUCTURE 

REM 

00 WHILE X<>04NOr<>04NOZ<>0 

FIRST STATEMENT 

SECOND STATEMENT 

LAST STATEMENT 
END 
ST 
REM EXAMPLE OF DO WHILE STRUCTURE 
REM 
00 WHILE XO0ANOYO0ANDZO0 

FIRST STATEMENT 

SECOND STATEMENT 

LAST STATEMENT 
END 



? LIST 

10 REM»«»eX4M?LE OF IF THEN DO STRUCTURE 



? 3ASIC 

ENO OF PRE-PROCESSING 

? LIST 
ia REM EXAMPLE OF 00 WHILE STRUCTURE 
20 REM 

30 i FXO0ANOYO0ANOZO0TMEN 40 

31 GOTO 70 

40 FIRST STATEMENT 
50 SECOND STATEMENT 
60 LAST STATEMENT 

69 GOTO 30 

70 HEM END 



20 


REM 


30 


IF 


XO0 


31 




THEN DO 


40 




FIRST STATEMENT 


50 




SECOND STATEMENT 


e0 




LAST STATEMENT 


70 


ENC 


) 


? BASIC- 


k****LIST 


10 


REM...EX4M?'LE OF IF IHEN 00 STRaCTURE 


20 


RE» 


4 


30 


IF 


XO0THEN 50 


4f» 


GOTO 90 


50 




FIRST STATEMENT 


60 




SECOND STATEMENT 


70 




N TH STATEMENT 


80 




LAST STATEMENT 


90 


REM 


END 



? LIST 

1» REM EXAMPLE OF IF THEN ELSE STRUCTURE 

20 REM 

30 IF NUM8£Ra0THEN 50 

40 GOTO 60 
50 P«INT»TH£ NUM3ER tS ZERO* 

59 GOTO 80 

60 REM ELSE 

70 PRINT-TME NUMBER IS NON-ZERO" 

d0 REM ENO 
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7 LIST 








10 


REw 


EXAMPLE OF REPEAT 


UNTIL 


STHUCTURE 


30 


f^EM 








30 


«EPE4T UNTIL A=0 






40 




FtRST STlTEMENTJStCONO 


STATE.^ENT 


50 




N-1 TH STATEMENT 






60 




H TM STATEMENT 






70 


END 








? 9ASIC 









END OF P«E'P«OCeSSING 

7 LIST 

10 *^E«» EXAMPLE OF REPEAT UNTIL STRUCTURE 

29 REM 

30 REM REPEAT UNTIL A*0 

40 FIRST STATEMENTtSECOND STATEMENT 

50 N-1 TH STATEMENT 

60 N TH STATEMENT 

70 lFAr0THE^ 72 

71 GOTO 30 

72 REM 



? LIST 
10 REM EXAMPLE USING SUBROUTINES 
20 REM 

30 G0SU9 «»NPUT!60SUB«0UTPUT 
40 G0SU8 40UTPUT 
50 STOP 

60 REM NOTE THAT LINE 50 ($ NOT NECESSARY 
70 REM 

80 SUBROUTINE iJNPUT 
90 BODY OF SUB 

100 RETURN 
110 REM 

120 SUBROUTINE 40UTPUT 
13? BODY OF SUB 40UTPUT 

140 RETURN 

? BASIC 

END OF PRE-PROCESSING 

7 LIST 
10 REM EXAMPLE USING SUBROUTINES 
20 fl£M 

30 GOSUB 801GOSU8 120 
A0 GOSUB 120 
50 STOP 

60 REM NOTE THAT LINE 50 IS NOT NECESSARY 
70 REM 

80 REM SUBROUTINE ilNPUT 
90 BODY OF SUB 

100 RETURN 
110 REM 

120 REM SUBROUTINE 40UTPUT 
130 BODY OF SUB 120 

140 RETURN 



? LIST 

10 REM EXAMPLE OF REPEAT FO*^EVER ST«UCIU*^E 

20 REM 

30 REPEAT FOREVER 

40 FIRST STATEMENT 

50 « 

60 LAST STATEMENT 

70 END (REMEMBER THAT END CONCLUDES EiCH 

7 BASIC 

END OF PRE-PROCESSING 



7 LI ST 
10 REM EXAMPLE OF MEP£A1 
20 REM 

30 REM REPEAT FOREVER 
40 FIRST STATEMENT 

50 •• 

60 LAST STATEMENT 

70 GOTO 30 



( START J 



RESEQUENCE 

GET LINE 

PARSE FIRST 

WORD 



SEARCH FOR 
"&" ON THE 
LINE 



STORE NAME & 
LINE # IN 
SUBR TABLE 




ENTER NAME 
LINE # IN 
DEFN TABLE 



PUSH EXPR, 
INDEX & TYPE 
ONTO STACK 



POP RECORD 
AND CONVERT 
STRUCTURE 





YES 



CONVERT 
NAMES TO #S 
W/ SUB CALL 
& DEF TABLE 



/ RETURN ^ 

y ro EDITOR J ^ 



Figure 2: Pre-Processor Flow Chart 

7 LIS! 
10 REM EXAMPLE OF CASE STRUCTURE* YOU CAN MfiVE AS MANY CONDITIONS 
20 REM AS YOU WANT. THERE MUST BE AT LEAST ONE- 
3a REM 



FOREVER STfvuCTUHE 



40 


CASE 


50 


; xs>0 


60 


STATEMENT 1 


70 


• • • 


90 


STATEMENT N 


90 


; X<>0 


100 


STATEMENT 1A 


110 




1?? 


STATEMENT P 


130 


: X1<>2 


140 


STATEMENT 


150 


STATEMENT. LAST 


160 


END 
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LETTERS 



Just received my May Issue of MJCRO to- 
day — it's getting better witti every 
issue, 

I have tv\/o 6502 systems, Km ar>d SYtvl. 
^^y KM has an aeWK/onal 28K of memory 
added to it, a hometn-ew CRT terminal, 
and a Selectric I/O typewriter used as 
output only. I used open col4ectof TTL to 
interface my terminal witti t^e KfM TTY 
port, but due to terminal problems, I 
was not able to get reliable communica- 
tion until 1 cut the run from U15-11 to 
U2«-10 as you described in M-ICRO 12:40. 
It ck>es work. 

\ have Micro-2's 9K + BASIC for the KIM. 
Bob Kurtz was very helpful in changing 
the data save/load routines to also in- 
clude string data — I highly recommend 
his version. 1 have interfaced BASIC to 
the Selectric, so it is a pretty complete 
system. 

My other system is a SYM-1 with SK RAM 
and Synertek's BASIC in ROM. I use the 
same terminal to communicate with It 
as with the KIM. Their BASIC is almost 
the same as my KIM version, with the ex- 
clusion of the data save/load routines. 
Trig functions are not included but can 
be added with a routine that they have 
supplied. The trig routine occupies 313 
bytes of RAM. It's handy to have BASIC 
in ROM but sure wish that I could 
change their character delete from an 
underline to an ASCII backspace! 

I also received from Synertek an advance 
copy of their new monitor. The cassette 
problems I was having were greatly 
helped by it, but were not completely 
cleared up until I added reverse parallel 
diode pairs across my recorder's MIC 
IN and EAR lines to the SYM. I used Aud 
Out Hi to the recorder MIC IN with the 
diodes tied from Aud Out Hi to ground. 
The waveform generated by the SYM in 
MS format is non-symetrical. This 
caused a low frequency AC ripple to be 
generated by my recorder, probably due 
to capacitatlve coupling in the recorder's 
circuits. The diodes act as a clamp and 
eliminate this ripple which was quite 
severe for some data patterns. The cas- 
sette interface is rock-solid now. 
I didn't get any listing of the new moni- 
tor, either, but the only monitor routines 
that I found relocated are those dealing 
with the cassette. I use the paper tape 
format to downline and upline load pro- 
grams from a Honeywell L66 computer at 
work, and so have had the opportunity 
to test the changes there. They work as 
stated, as does the Break key on Verify. 
The latest info I have from Synertek says 
that the new monitor will be available on 
ROM in early July for $15,00. 



? LIST 








10 


REn EX4>»PLe OF CASE STRUCTUflE' YOU CAN M 


AVE AS MANY CONDI Tl ONS 


2fl 


R€M AS rOU WNT. 1 


rHERE MUST 


BE AT LEAST 


ONE. 


30 


R€« 








40 1 


^EM CASE 








50 


IFX = >«THEN 60 








51 1 


SOTO 90 








6« 


STATE»tENT 1 








7« 


« • • 








40 


STUEWENT N 








8^ 1 


S^OTO V%9 








9« 


IFX<>«Tif€N 100 








91 1 


S-OTO 130 








1#0 


STAT€M»eNT 1A 








n-e 










120 


STAT^»*€NT P 








129 


GOTO K^ff 








130 


IFif1<>2TH'£N M^ 








131 


GOTO 1^ 








140 


SHl£¥^m 








150 


STAT€M€^*Tf LAST 






160 


REM €N0 








? LIST 








10 


R£^ SMALL PROGRAM 


USING SO+<E OF THE STRU 


CTU^ES 


20 


REM 








30 


PRINT:PRINT 








40 


GOSue 4IHPUT 








50 


-ftefEAT UNTIL WJM=« 


f 






S9 


CASE 








70 


; ►*tH*>5« 








a0 


PRINT'THE 


NUMBER IS 


MO«e THAN 50 


M 


90 


; NUM< = 50AN{)NUM>10 






100 


PR INT* THE 


NUM6ER IS 


LESS THAN OR 


EQUAL TO 50»r 


110 


PR INT "A NO 


GREATER THAN 10» 




120 


: NU>*>3ANONUM< = 10 






130 


PRINT-TME 


NUMBER IS 


GREATER THAN 


ZERO": 


140 


PRINT-ANO 


LESS THAN 


OR EQUAL TO 


10» 


150 


; NilM<0 








160 


PR1NT»TKE 


NUMBER fS 


NEGATIVE" 




170 


ENO 








1«0 


GDSUe ItNPUT 








}n 


END 








200 


STOP 








210 


REM 








220 


SUBROUTINE IINPUT 








230 


PRINT'TYPE IN A 


NUMBER* TYPE ZERO TO 


STOP"; 


240 


INPUT NUM 








2 50 


RETURN 









• 






7 BASIC 

END Of PRE-PROCESSING 

? LIST 
10 REM SMALL PROGRAM USING SOME OF THE STRUCTURES 
20 REM 

30 P9INT:PRINT 
40 G0SU8 220 

50 REM REPEAT UNTIL NUM=0 

60 REM CASE 

70 IFNUM>S0THEN 30 

71 GOTO 90 

80 PRINT'THE NUM9ER IS MORE THAN 50» 

89 GOTO 170 

90 IFNUM<550ANONUM>13TH£N 100 

91 GOTO 120 

100 PRINT'THE NUMBER IS LESS THAN OR EOUAL TO 50" 

110 PRINT»ANO GREATER THAN 10» 

119 GOTO 170 

120 IFNUM>0ANONUM<x10THEN 130 

121 GOTO 150 

130 PRINT'THE NUM9ER IS GREATER THAN ZERO"; 

140 PRINT'ANO LESS THAN OR EQUAL TO 10" 

149 GOTO 170 

150 IFNUM<0THEN 160 

151 GOTO 170 

160 PR|NT»TME NUMBER IS NEGATIVE" 

170 REM END 

180 G0SU8 229 

190 IFNUMS0THEN 192 

191 GOTO 50 

192 REM 
200 STOP 
210 REM 

22^ REM SUBROUTINE IINPUT 

230 PR|NT«TYP£ IN A NUMBER* TYPE ZERO TO STOP": 

240 INPUT NUM 

250 RETURN 



# 
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No, that was not a typo error above. I 
do have 8K of RAM on my SYM. U1, the 
address decoder, fully decodes the first 
8K of memory, with only 4K implement- 
able using the sockets provided. I added 
a small "piggyback" or daughter board 
to the SYM that fits in the area of the 
logo and the "Synertek Systems Corp." 
label. DIP plugs from this board plug 
into the sockets on the SYM for U12 and 
U19. These two 2114s plus 8 more mount 
on the added board. Jumper wires con- 
nect from it to U1, pins 7, 9, 10, and 11. 
The design violates worst case design 
rules since, if all the chips are providing 
their worst ease load to the data and 
address lines, the lines will be loaded to 
higher capacitance than the 6502 is guar- 
anteed to drive. I have alt the PROM and 
ROM sockets full, U28 (the extra 6522) 
installed, and have seen no degradation 
of the 6502 signals with several different 
supplier's 2114s installed. It just will 
not fail a memory test! None of other 
SYM owners to whom I have supplied 
boards have had any problems either. 
It sure is nice to have the full 8K avail- 
able for BASIC! 

I can't positively guarantee that it will 
work for everybody, but it sure is a 
simple and inexpensive way to get addi- 
tional memory. The PC boards with 
plated thru holes, reflowed solder plat- 
ing, and instructions are available from 
meat the address below for $5.00 each, 
plus SASE. If it doesn't work for some- 
one, I'll refund their money provided the 
board is returned undamaged. 

I highly recommend the assembler/text 
editor supplied by M. S. S., Inc., PO Box 
2034, Marshall TX 75670 for $25.00. I 
have modified it to run on the SYM, and I 
am very pleased with it. I also have Tom 
Pittman's Tiny Basic modified for the 
SYM. One can write reasonable sized 
programs with either of these packages 
and still keep within the original 4K 
memory size since they both take up just 
over 2K each. However, 8K is sure a lot 
better! 

ni attempt to answer any letters re- 
garding KIM/SYM if a SASE is enclosed. 
Thank you, and keep up the good work! 

John BEalock 

3054 West Evans Drive 

Phoenix, Arizona 85023 



Thanks to Jim Butterfield for Inside Pet 
Basic in MICRO 8:39. His FIND and RE- 
SEQUENCE programs were useful and 
informative, as were his remarks 
concerning how PET BASIC is built. I 
modified FIND to run on my Ohio Sci- 
entific "C2-8P" with the following 
changes. 

OSI BASIC user programs start at loca- 
tion 0301 hex while PET's start at 0401. 
in line 9000, change A = 1025 to A = 769 
and change X = PEEK(1029) to X = PEEK 
(773). In line 9005, change (1029+ L) to 
(773+ L). 




FREE 



Tne COMPUTER FACTOR VS extensive cekTBONICS.' »1095 

ana wioe s«ee1ioo of campuier mioM (Parell«() 445 

■es you ol finding the printer *j(lOM (Serlsl) . , . 

lor your needs, and TREWJCOM 

speciticaiions Ttie lolloviiirg pnnlers wforlilNTEGnAL DATA 

well with all Known personal computers OUME of DIABL O MOOi xflCtOf i Fridlon F«ad • UsW 

Single Shw ts. Rol l. Fanto4d . Uppai 



Open 

'Mon.-Fri. 

10^6 



135 ol Sonwate»iitri ourehweoi any 



d a% sales tax • Same-day e -| -1 0-4. 
sninmenl on prepaid and ciedil card orders "*■*• '" ^' 
• Aod S5 shipping loi computers 13 (O- 
wards. J 25 eacn easseiie tape 



A Lower Cue • Light Weighl 

Parallel $9»5 ^ 
Serial $1045,.j<p;^.t ^t 



TO ORDER CALL TOLL FREE 800-223-7318 

The COMPUTER f ACTORS ^2:'^l^i^r\2%''pl.'Z 
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While the program will list and run with 
these changes, it cannot be saved on 
cassette without modifying lines 9005 
through 9007. This is necessary because 
OSI software limits the line length to 72 
characters and line 9005, when listed, 
expands to 76 characters. To correct 
this, change lines 9005, 9006 and 9007 to: 



9005 FOR L=1 TO 80:Y = PEEK(773- 

9006IFY = 0THEN? 256PEEK(A + 3)- 
+ PEEK(A + 2);:RETURN 

9007 IF Y = PEEK(K + L) THEN NEXT L 

9008 RETURN 

MICRO— The 6502 Journal. 



To modify RESEQUENCE, we have to 
know what tokens OSI BASIC uses for 
keywords. In Jim's RESEQUENCE pro- 
gram, line 60220 searches for PET key- 
words GOTO (137), GOSUB (141) and 
THEN (167). For OSI BASIC change 
these to 136, 140 and 16G respectively. 
Change all occurences of V% to V and 
W% to W. Then change all undimen- 
sioned variables V to U and W to Z. 
Changethe1025in line 60160 to 769. 



Since OSI software looks at cassette 
input as if it were from the keyboard, 

14:15 




NOW AV ALIBLE AT: DERRICK ELECTRONICS 

7H| Wo at KenoBha, PO BOX US? 
BROKEN ARROW, OKLA. 7i+01 2 
(918) 251-9923 

ADD $ 2.00 for shipping and handellng 

Oklahoma; ADD Tax. 

DELIVERS: STOCK to 60 days 



THE EE-1 COLOR GRAPHICS / aLPHNUMERICS VIDEO BOARD 

1 . k DIPPERBNT GRAPHIC MODES 

2. UP TO 8 VIVID COLORS 

3. ALPHKUMBRICS AMD INVERSE ALPHNUMEHICS 
U. KIM 1 , AIM, AND SIM PLUG COMPATABLB 

5. PROVISION POR ON-BOARD R.F. HODULATOR 

(PARTS INCLUDED) USE UNMODIFIED COLOR TV 

6. IK ON-BOARD RAM (ADDS MEMORY TO YOUR SYSTEM) 

7. SINGLE VOLTAGE OPPERATION. ON-BOARD +5 V REG. 



-1 ASSEMBLED AND TESTED 9 221;. 00 

-1 KIT $ 16i4.,00 

-1 PARTIAL KIT $ 69.00 

» PC BOARD 

tt MC6847P VIDEO IC 

« MC1372P MODULATOR IC 

-1 PC BOARD ONLY $ 40.00 

-1 INSTRUCTION MANUAL $ 5-00 



e€ 



EDtr^RO EI\lTEfiPfiiZC5 



# 



these programs can be loa(Jecl before or 
after the program of interest as long as 
there is no line number conflict. 

Alvin L Hooper 

207 Self St. 

Warner Robins, GA 31093 



There appears to be a growing problem 
with APPLE Software. Some companies 
selling software for the APPLE are so, 
concerned with theft of their product, 
that they are resorting to self-modifying 
code and programs that modify certain 
key registers used by the APPLE moni- 
tor. This is supposed to prevent people 
from listing or copying the program. 



This is a very short sighted position to 
take. The bad part of all this is the fact 
that any computer is difficult at best, 
and sometimes impossible, for the av- 
erage home computer owner to operate. 
This particularly true with a new and un- 
familiar program. 



One mistake on the part of the new user 
can turn a $20.00 to $500.00 disk-based 



program into useless junk. Furthermore, 
the new user cannot store the program 
on another disk for backup or more con- 
venient use. 

We suggest you don't buy software that 
does any of the following; 

1. Executes automatically after load- 
ing. 

2. Modifies the screen memory while 
loading. 

3. That you cannot load from disk, 
using the basic DOS commands. 

4. That you cannot unlock using the 
basic DOS commands. 

5. That you cannot list. 

6. That you cannot change. 

7. That have basic line numbers great- 
er than 32000. 

8. That you did not try in the computer 
store, before you bought it. 



Paul Lamar 
Lamar instruments 
2107 Artesia Boulevard 
Redondo Beach, CA 90278 



If you have the occasion to publish read- 
ers opinions of hardware products, 
please add my recommendation of "The 
Net Works" brand serial interface adapt- 
er for the PET. It comes with excellent 
documentation both on the IEEE-488 in- 
terface of the PET and on the RS-232 as 
found on terminals and modems, ft also 
includes sample programs to assist in 
learning to use the relevent portion of 
the PET operating system. Mine has 
worked flawlessly for some 6 months 
now; this letter was typed with it, using 
an AJ 841 for input/output. 

Also, you might warn readers that Pro- 
gramma Consultants version of Forth for 
PETs requires 16K memory to operate, 
contrary to their advertisements last 
fall. 

Richard L Morgan 
PO Box 25305 
Houston, TX 77005 
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Intercepting DOS Errors from Integer BASIC 



Andy Hertzfeld 
2511 Hearst Street 
Berkeley, CA 94709 



Implement true turnkey applications on the APPLE with 
this DOS error handling interface. Now Integer BASIC 
programs can trap errors from DOS, diagnose problems, 
and take remedtal action with no intervention from the 
operator. 



When a DOS error such as FILE NOT 
FOUND occurs during execution of a 
BASIC progranri, execution is suspended 
and an error message is printed. Unfor- 
tunately, this is often not what we want 
to happen. We would prefer for the pro- 
grann to be notified of the error and 
allowed to continue execution, dealing 
with the error in any fashion it desires. 

This is fairly easy to achieve under 
Applesoft because it includes an 
ONERR error intercepting facility. It is 
much harder to intercept errors from In- 
teger BASIC; this article describes one 
method fordoing so. 

Unlike Integer BASIC, the DOS resides 
in normal RAM. This means that it can be 
patched to make it do almost anything 
we wish. It turns out that location 9D5A 
(for 48K systems) holds the address of 
the BASIC error-handling routine that 
DOS vectors to whenever an error arises. 
It usually contains E3E3, for Integer 
BASIC, and D865 for ROM Applesoft. 
However, we can store our own address 
into 9D5A (5D5A for 32K systems) 
and thereby gain control whenever a 
DOS error occurs. 

The following 24-byte, relocatable rou- 
tine will Intercept errors from BASIC. 
When a DOS error arises, it will store the 
error number at location 2; the line num- 
ber of the statement that caused the 
error in locations 3 and 4; and, finally, 
it will transfer control to the BASIC 
statement whose line number is found in 
locations and 1. Since the routine is 
relocatable, you can position it any- 
where you wish. Location 300 appears 
to be a pretty good place, unless you are 
keeping your printer driver there. 

To activate the error intercept facility, 
perform the following two POKEs which 
store the address of the intercept rou- 
tine in $9D5A: 



POKE -25254,0: POKE -25253,3 
(for 48K systems) or 

POKE 23898,0: POKE 23899,3 
(for 32K systems) 



The error intercept routine itself can 
be POKEd into page 3 or BLOADed off 
disk, whichever you prefer. If you locate 
it somewhere other than $300, make 
sure to alter the above POKEs accord- 
ingly. 

After the routine is loaded into memory, 
it is very easy to use. If LINE is the line 
number of the statement where the er- 
ror handling portion of your program be- 
gins, you should "POKE 0, LINE mod 
256" and "POKE 1, LINE/256" to inform 
the interceptor where you want it to 
branch to. Your BASIC error-handler can 
figure out which statement caused the 
error by PEEKing at locations 3 and 4. 



PEEK(3) + 256*PEEK(4) is the line 
number. It can determine which type of 
DOS error occured by PEEKing at loca- 
tion $2. Table 1 gives the numbers for 
the various different classes of error. 



Unfortunately, there is still one minor 
problem. Even though you regain control 
when a DOS error occurs, DOS still rings 
the bell and prints out an error message. 
One simple POKE will inhibit DOS from 
doing this but, since the POKE will 
supress all DOS error messages, in- 
cluding immediate execution errors, it is 
a little bit dangerous. Also, the POKE is 
different for different memory size sys- 
tems and for different versions of DOS. 



48K with DOS V3.1 
48K with DOS V3.2: 
32K with DOS V3.1 
32K with DOS V3.2: 



POKE -22978,20 
POKE -22820,18 
POKE 26174,20 
POKE 26332,18 



On all systems, you can restore error 
messages by POKEing 4 into the system- 
dependent address cited above. 

The ability to capture DOS errors is 
very important, especially for turn-key 
systems where it is a disaster if a pro- 
gram crashes for any reason at all. Per- 
haps this little routine will allow more 
people to program in faster, more ele- 
gant Integer BASIC rather than choosing 
the Applesoft language. 



MICHO-WARE ASSEMBLER 65XX-1.0 PAGE 01 



0010 


: 3030 


ORG $300 


0020 


: 3030 86 02 


STX $0002 


0030 


: 3032 AO 01 


LDYIM $0001 


0040 


: 3034 Bl DC 


LDAIY $00DC 


0050 


3036 85 03 


STA $0003 


0060 


3038 C8 


IKY 


0070 


3039 Bl DC 


LDAIY $OODC 


0080 


303B 85 04 


STA $0004 


0090" 


303D A5 00 


LDA $0000 


0100- 


303F 85 CE 


STA $O0CE 


0110: 


3041 A5 01 


LDA $0001 


0120: 


3043 85 CF 


STA $00CF 


0130: 


3045 40 5E E8 


JMP $E85E 



SAVE ERROR NUMBER 

GET LOW BYTE OF ERRING 
LINE NUMBER AND SAVE AT $3 

DITTO FOR HIGH BYTE 

GET LOW BYTE OF LIME NUMBER 
OF ERROR HANDLING STATEMENT 
DITTO FOR HIGH BYTE; SET 
THINGS UP FOR BASIC AND 
LET THE FIRMWARE TAKE OVER 
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Table I — Error Numbers and Messages 



Number 


Message 


1 


Language Not Available 


2 


Range Error 


3 


Range Error 


4 


Write Protection Error 


5 


End of Data Error 


6 


File Not Found Error 


7 


Volume Mismatch Error 


8 


Disk I/O Error 


9 


Disk Full Error 


10 


File Locked Error 


11 


Syntax Error 


12 


No Buffers Left Error 


13 


File Type Mismatch 


14 


Program Too Large Error 


15 


Not Direct Command 



Note that these are error messages for DOS V3.2; 
the V3.1 messages are slightly different. 



AT LAST 

ENHANCE THE FULL CAPABILITIES OF YOUR DISK II 

SOFTOUCH ANOUNCES THE 

" DISC MANAGEMENT SYSTEM " 
EIGHT PROGRAMS ON DISK TO PROVIDE THE USER WITH A 
COMPLETE UNDERSTANDING OF THE DISK DRIVE COMMANDS 
PLUS A UTILITY PACKAGE TO INDEX AND CATAGGRIZE ALL 
PROGRAMS tmiTTEN FOR THE APPLE II COMPUTER. THE 
SYSTEM PROVIDES FULL SEARCH , EDITING AND DATA 
TRANSFER CAPABILITIES. 

A TWENTY-SIX PAGE BOOKLET PROVIDES DETAILED , 
EDUCATIONAL TECHNIQUES GIVING A THROUGH UNDERSTAND- 
ING OF ALL DOS C0^♦1ANDS. 

INCLUDED ARE SUCH TECHNIQUES AS: 

* INITIALIZATION OF TEXT FILES 

* WRITING 5 READING OF TEXT FILES 

* CREATING TEXT FILES 

* EDITING FILES 

* TRANSFERRING DATA TO OTHER DISKETTES 

* LISTING OF DATA FILES 

* SEARCHING DATA BY VARIOUS OPTIONS 

A DOCUMENTED LISTING PROVIDES LINE CHANGES FOR 
ADAPTING THE SYSTEM TO PREFORM NUMEROUS OTHER 

APPLICATIONS. 

THE BOOKLET IS WRITTEN IN A MANNER WHICH MAY BE USED 
BY THE NOVICE AS WELL AS THE EXPERIENCED PROGRAfWER. 
DOZENS OF PROGRANWING TECHNIQUES ARE SHOWN AND FULLY 
DOCIWENTED. ALSO INCLUDED SEPARATELY, IS A PROGRAMMERS 
AID GIVING QUICK REFERENCE TO INTEGER. APPLESOFT AND 
DOS COMMANDS WITH ILLUSTRATIVE EXAMPLES. 

SYSTEM REQUIREMENTS: DISK II 6 APPLESOFT TAPE OR ROM CARD 

PRICE $19.95 (PROCESSED a SHIPPED WITHIN 4 DAYS) 

SEND CHECK OR MONEY ORDER TO: 




Pygmy 
Programming 

IWkT^ * APPLE SOFTWARE * 

l<^r:Ll' d=? P.O. BOX 3078 • SCOTTSDALE, ARIZONA 85257 

APPLE-SCRIBE-2 disk or cassette $49.00 
(Word processor with any length line, 
printing in any shapeorform. Requires 16k 
or larger systenn) 

APPLE-DMS 48k & disk required $49.00 
(Universal data management system) 

UNLISTABLE-BASIC disk required $39.00 
(Make Integer BASIC listings unintel- 
ligable) 

BCOPY disk & 16, 32 or 48k $19.00 
(Single disk drive binary file copier) 



DEFLECTIONS disk or cassette 
(Real time color graphics game) 



$10.00 



Cu5tom programs . . . write for details! 



>^ 



SOFTOUCH 
P.O. BOX 511 
LEOMINSTER, MASS. 01453 



KIM BUS EXPANSION ! 

AIM™, VIMTM, (SYM)T»«, KIM"* OWNERS 

(and any other KIM^^ bus users) buy the 
best 8K board available anywhere: 

SAME LOW PRICES! 
HDE 8K RAM-$169! 3 for S465! 

Industriai/commercial grade quality: 100 hour high temp burn- 
in: low power: KIM bus compatible pin for pin: super quality & 
reliability at below S-100 prices (COMMERICALLY rated S-100 
boards cost 25-75Vo more). When you expand your system, expand 
with the bus optimized for S bit CPU's, the Commodore/Mos 
Technology 22/44 pin KIM bus, now supported by Synerlek, MTU, 
Rockwell International, Problem Solver Systems, HDE, the Comput- 
erist, RNB, and others! 

KIM-1 computer $179.00: KIM-4 Motherboard $119: power sup- 
ply for KIM-1 alone~$45: enclosure for KIM-1 alone $29: HDE pro- 
totype board with regulator, heatsink, switch address & decoding 
logic included $49.50: book "The First Book of KIM" $9.95: book 
"Programming a Microcomputer: «502" $8.95: SPECIAL PACKAGE 
DEAL; KIM-1, power supply, BOTH books listed above, ALL for 

HDE FILE ORIENTED DISK SYSTEM (FODS) FOR KIM BUS 
COMPUTERS Make your KIM (or relative) the best 6502 develop- 
ment system available at any price. Expand with HDE's full size 
floppy system with FODS/Edltor/Assembler. 2 pass assembler, 
powerful editor compatible with ARESCO files KIM bus interface 
card: fast 6502 controller harxJIes data transfer at maximum IBM 
single density speed for excellent reliability: power supply for 4 
drives: patches to Johnson Computer/ Microsoft BASIC. 45 day 
dellve7. Single drive— $1995 dual drive $2750 

Shipping extra unless order prepaid with cashier's check ALL 
Items assembled, tested, guaranteed at least 90 days. 

PLAINSMAN MICRO SYSTEMS (div. 5C Cofporatkm) 
P.O. Box 1712, Auburn, Al. 36830: (205^45-7735 
3803 Pepporelt Parkway, OpelBta 
(1-800-633-8724) Continental U.S. except Al. 

Dealers for OSI, COMMODORE, COMPUCOLOR, 
■Bi? ALTOS 
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AIM Your Spouse toward Success 
at the Supermarket 



Melville Evans and Vernon Larrowe 

Environmental Research Institute 

of Michigan 

3300 Plymouth Road 

AnnArbor, Ml 48107 



This grocery list generator requires no programming. 
It wilt prove that your computer realty is a useful gadget 
just one hour after you unpack it from shipment. Today 
the supermarket. And Tomorrow? 



If she's like my wife Marie, she looks 
at you, sweating over software, with a 
tolerant smile. Nothing useful will come 
of it, but it keeps you off the street, and 
it's probably cheaper than a sailboat. If 
that's your picture, take note: here's a 
"program" that needs no home-built 
software, that you can get running the 
first time you fire up your AIM, that 
demonstrates most of the neat AIM 
features, and that several local com- 
puter-owner's wives agree provides a 
really useful function. 



Well, only two that have actually tried 
it so far, but that's two out of two, and 
the rest all say it sounds good. Marie 
says it saves her time making her list, 
saves time in the store, and prevents her 
arriving back home and realizing she 
forgot the beer. It takes an hour to 
gather the data, and a half-hour to type It 
in. Then your wife sits down at the "con- 
sole", runs it, and it works the first time. 
Here's how. 



Gather the data. The next time she 
goes to the supermarket, go with her, 
armed with notebook and pencil. Ask her 
to take her usual route through the store 
and to point out, as she goes, any item 
she sometimes buys. Not just those 
she's buying today, but anything she 
ever buys. Note them down in order, with 



current prices if you have time. You can 
come back for prices later, if they prove 
useful. Ask her to be specific. Not to say 
just "canned vegetables", but to specify 
which canned vegetables she some- 
times buys. Peas? Carrots? If she walks 
right by the beer without seeing it, 
put it on the list anyhow. 

Type it in. Fire up your AIM and call 
the editor, with all of RAM for the buffer, 
and input from the keyboard (i.e. hit 
"E, SP, SP, SP"). Now type in your list, in 
the same order you gathered It, ab- 
breviated to one item per line. My list is 
shown in Figure 1. It's a long list, and 
takes a little over 2K of RAM. If you only 
have 1K to work with, you may have to 
delete some items later, but try putting 
them all in. It's surprising how many 
lines IKwill hold. 



Dump it to cassette. So you can load it 
next week. It's supposed to save time, 
remember. 



Try it yourself before you demon- 
strate. Escape to the monitor and turn 
the printer off (ESC, CTRL PRINT OFF). 
Now pretend you're going grocery shop- 
ping. Hit "T", and there's your first line 
on the display. If you have a title at the 
top, use "D" to step down to the first 



item. Need that this time? No? Hit "D", 
and there's the next item. Need that? 
Yes? Hit '"PRINT", and it goes on the 
list. Now "D" for the next item. Just step 
down the list with "D", and hit "PRINT" 
for any item you want on today's shop- 
ping list. If you change your mind after 
hitting "D", you can back up with "U". 

When you finally get to "END", hit 
"LF" about six times, tear off the paper, 
and there's your list. All neatly typed, 
and in the order you'll find them in the 
store, and with the beer on there, by 
golly! 

If you find some lines that need 
changes, feel free. You're in the editor, 
after all, and "C" is fun to use. But 
remember to dump the new version onto 
cassette before you sign off. 

Call your wife. Before she sits down to 
it for the first time, be sure it's properly 
loaded, with printer off, and displaying 
Item One. You're trying to impress her, 
both with AIM and with your expertise, 
right? It detracts from the impression if 
you blow the first tape load and have to 
do it again, and then kick the plug out of 
the wall as you swing out of the chair. 

After she sees the payoff, she may even 
agree that it's worth putting up with 
hassles like that! 
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** AIM-65 ***** 




:XCERT INCORPORATED 






Qty 1-9 


AIM-65 w/lK RAM 


$375 


AIM-65 W/4K RAM 


$450 


Assembler ROM 


$85 


BASIC ROMS 


$100 



P/N 
A65-1 
A65-4 
A65-A 
A65-B 

EXCERT has concentrated on the AIM-65 to guarantee YOU that the products we 
offer are fully compatible. We know how these products work since they are 
used in our systems. EXCERT can help you get the system YOU want! 



ACCESSORIES 

P/N 

PRSl +5V at 5A, +24V at 2.5A, 
+12V at lA (does not fit 
inside ENCl) $95 

PRS2 •f5V at 5A, H-24V at lA 

(mounts inside ENCl) $50 

ENCl AIM-65 case w/space for 
PRS2 and MEBl or MEB2 
or VIBl $45 

NEW I ENC2 ENCl w/PRS2 inside $100 

TPTl Approved Thermal Paper 

Tape, 6/165' rolls $10 

NEW I MCPl Dual 44 pin Mother Card 

takes MEBl, VIBl, PTCl $80 

MEBl 8K RAM, 8K Prom sockets, 
6522 and programmer for 
5V Eproms (2716) $245 

NEWl PTCl Prototype card same size 

as KIM-1, MEBl, VIBl $40 

VIBl Video bd w/128 char, 128 
user char, up to 4K RAM, 
light pen and ASCII keybd 
Interfaces $245 

NEWl MCP2 Single 44 pin (KIM-4 

style) Mother Card takes 
MEB2, PGR2 and offers 4K 
RAM sockets $119 

w/4K RAM $169 

MEB2 16K RAM bd takes 2114 *s $125 

w/8K RAM $225 
W/16K RAM $325 

NEWl PGR2 Programmer for 5V Eproma 
w/ROM firmware, up to 8 
Eproms simultaneously $195 

v/4 textool skts $245 



SYS TEMS 

''assembled & TEgTEP" 

All AIM-65 systems are self contained and 
have the power supply (PRS2) mounted 
inside ENCl. 



P/N 
SB65-1 
SB65-4 
SB65-4B 



''starter'' syst e ms 



A65-1 in ENC2 $475 
A65-4 in ENC2 $540 
Same Plus BASIC $640 



"expanded" systems 

"B" "C 



P/N MEBl MEB2 VIBl 

E_65-4 A65-4, ENC2, 

w/one MEB1,MEB2, 

or VIBl $775 $855 $775 

E_65-4B Same Plus BASIC $875 $955 $875 

Higher quantities and systems with other 
options quoted upon request I 

Mail Check or Money Order To: 

EXCERT, INCORPORATED 

Attn: Laurie 

4434 Thomas Avenue South 

Minneapolis, Minnesota 55410 

(612) 920-7792 

Add $5.00 for shipping, insurance, and 
handling. 

Minnesota residents add 4% sales tax. 




CONNECTICUT microCOMPUTER , Inc. J 

150 POCONO ROAD - BROOKFIELD, CONNECTICUT 06804 
(203) 775-9659 



aYBTCMS 



• 



PETMOO 



R5-232 
MOD 



3 



RS*'232 
INTERFACE MODULE 




GPIB(iEEE-488) 
INTERFACE MODULE 




TRS-eO INTERFACE 
ETC. 



MANUAL AND 
DISPLAY MODULE 






ANAMANl 



nnnnn^ 



ANALOG 
MANIFOLD 
MODULE 



Ct^ 

SENSORS 
•TEMPERATURE 
•VELOCITY 

• PRESSURE 

• db 

• pH 

• ACCELERATION 

• HUMIDITY 

• LIGHT LEVEL 

• FLUID LEVEL 

• ETC. . . 



DAM SYSTEMS bv^ CmC 
A coftpleie suste* of ftodules to lei ^our conputer listen 
to the real world, 



DAM SYSTEMS PRICE LIST 



DAM SYSTEMS comr^onents 



AIM161 - Analo«t ln>*ut Module 
16 B-bil analog inPuU - 100 aicrosecond conver&ion Uk - 
3 slate ouUut - reauires one 8-bit cotwter output porl 
for control and one 8-i)it eotwler input wrt for data, 

A1M162 - AnsloEi Input Module 
As above plus! tf^eater accuran - A)ld plated contacts - 
Pilot li^t - switch selectable startr enable and readu 
polarities. 

POWl - Power Module 
Supplies PDuer for one AIH16 >odule. 



ICON — InF-ut Conriector 
For connecting analog inFuts to the AIHU - 
ed& connector - solder eyelets. 



20 pIr card 



OCON - Output Connector 

For connecting the AINU to a co«=uter - 20 pin card edte 
connector - solder ewlets. 

MANMODl •••• Manifold Module 

Use in Place of ICON. Screw tertinal barrier strips for 
connectina jovsticksf fotentiowtersf voltd^ sources* etc. 
Eliftinates U« need for soldering. Plu^s into the AIHU. 

ANAMANl ~ AnBlosi Manifold Module 
Use in place of ICON. Connects DM SYSTEHS SENSORS to the 
Aim6 without soldering - sensor cables Just pIu^ ini Pluft 
into the AIHl^ x the tWWQl. 

SENSORS 

Sensors for tev«raturef pressurer flour hutiditur level r 
pHr aotionf etc. 

COMPUTER INTEF<FACES 

Fx the FtTf KIH» TRS-BOi etc, Use in place of OCON, 
Eliiinales the need for solder ins or special construction. 

PETMOD - PET Interface Module 
Gives two IEEE portsi one user port and one DM SYSTEMS 
interface port. Saves wear and tear on the PET's printed 
circuit board. Also called the PETSAVR. 



* 179, 00 



*249*00 



*9,9,": 



*V*9r: 



liT/y .9^- 



TDA 



TBA 



^i49.95 



KIMMOD - KIM Interface Module 
Cives one application connector port and one DM SYSTEMS 
interface port, 

CABLE "A" - Interconnect Cables 
Connects covuter interface to AIHUi »M)ISlf XPWIRh 
etc. 

CABLE A24 - Interconnect Cable 
24 inch cable with interface connector on one end and art 
OCON eouivalent on the other. 

MANDISl - M3nu3i and Display Module 
Connects between the AIHU and the cotputer interface. 
Allows unual or comter control of the AINU. Displays 
channel nuiber and data. 

(2PID MOD - CPIB ( IEEE--40a ) Interface 
Allows the DM SYSTEMS hOUlES to be used with the GPIB bus 
instead of a aawter's other I/O ports. 

RS232 MOD - RS232 InterfBce Module 
Allows the DM SYSTEMS MODULES to be used with an RS-232 
port X terunal. 

XPANDRl ~ Expander Module 

Allows UP to 128 8-bit analog inputs (8 AIMli Modules) to 
be connected to one sustet. 



DAM SYSTEMS sets 



i|i39.9^ 



TBA 



^il9»95 



TBm 



TB*:-^ 



TBA 



TBA 



AIM161 Starter Set 

Includes one AIKlMr one POUlf one ICON and one OCON. 

AIM 162 Starter Set 

Includes one AIH162i one POyii one ICON and one OCON. 

PETSETla 

Includes one PETMODi one CABLE A24f one AIMUl, one POUl and 
oneMMIODl, 

KIMSETla 

Includes one KimODr one CABLE A24, one AIMlil* one POWl and 
oneMMMODl, 



il>2r.;9*00 
11.29:^*00 



i 



Boolean Equations Reduced on the PET 



A deceptively small BASIC program trains the PET to 
perform computer aided logic design. It will reduce any 
single output process to a minimal, two level network. 



Alan K. Christensen 

1303 Suffolk Street 

Austin, TX 78723 



When a home experimenter tries to de- 
sign a device, there are often one or two 
chips he doesn't have on hand. The 
builder might stop and order parts, then 
wait for delivery; but often this prob- 
lem can be solved by falling back on 
basic gates and keeping some of these 
on hand for emergencies. 

Reducing a truth table to an acceptable 
number of equations is often a tedious 
task. As an aid in this endeavor, I wrote 
a program to solve the Boolean equa- 
tions using my PET computer. The pro- 
gram is based on the Quine-McCluskey 
method. It will reduce any sum of prod- 
ucts to a minimum, two level network. 



The general approach used in the pro- 
gram is to reduce the number of inputs 
using the equation 

X'Y + XY = Y 

And then reduce the number of terms 
using the equation 

XY 4- V'Z + YZ = XY -f XZ 

This program works only for multiple 
Inputs producing a single output, but it 
can be a powerfull aid in multiple output 
networks too. 

The output of a network can be defined 
as all of the inputs for which a "1" is 



500 REM -COMPARI^ DIFFERENCES IN TERMS- 

505 N*="" 

510 D=0 

515 F0RM=1T0L 

520 C*=CHR$(FNA(I) ) 

525 IF FNA(I)=FNA(J) THEN 535 

530 D=D+i:C$="-" 

533 N$=N*+C* 

540 NEXT M 

545 RETURN 

550 REM -ADD TERM TO LIST- 

553 IFN2=N THEN 595 

555 FOR X=0 TO N2 

560 IF N*-A$(X) THEN RETURN 

565 NEXT X 

570 IF 1=0 THEN 595 

575 FOR X=0 TO I-l 

580 IF A<X)=0 THEN 590 

585 A(X)=0:A1KX)=sN*:RETURN 

590 NEXT X 

595 N2=N2+ 1 : A < N2 ) =0 J A$ ( N2 ) =N$ : RETURN 

600 REM -REMOVE REDUCED TERMS FROM LIST- 

605 I=0:j=N2 

610 IF A(L)=0 AND I=:<J THEN 1 = 1 + 1 IGOTO 610 

615 IF A(J)=1 AND I=<J THEN J=J-1:G0T0 615 

620 IF I>J THEN 635 

625 A$(i)=A$< J) :a(I)=o:i=i+i:j=j-i 

630 G0T0610 

635 N=J:N2=J 

645 RETURN 

650 REM -COUNT DIFFERENCE IN TERMS (DISREGAURD DON'T CARES)- 

655 D=0 

660 F0RM=1T0L 

66^ IF FNB<I)=FNA(J) THEN 680 

670 IF FNA<J)=45 THEN 680 

675 D=D+1 

680 NEXT M 

685 RETURN 

READY* 



wanted. In addition, there may be some 
conditions where you don't care what 
the output is because that input con- 
dition will never be present. For this pro- 
gram, the "don't cares" are assigned in 
such a way as to reduce the number of 
inputs to required terms, but they are not 
considered when choosing the terms 
necessary for the output. 

This routine is written In modules. An 
explanation of the function of each 
module will aid in translating the pro- 
gram into other languages. Important 
facts about PET BASIC are: if there 
are multiple statements on the same line 
after an IF THEN combination, none will 
execute when the condition is false. All 
variables are zero unless otherwise set, 
and a zero subscript is permitted in 
arrays. 

The code with line numbers 0-99 per- 
forms general set up. Important global 
variables are: A$ — an array of required 
and don't care terms, B$ — an array of 
only required terms, A — an array of 
flags for A$, Q — an array of flags for 
B$, B — the number of required terms 
(-1), N and N2 — the number of terms in 
A$, and L — the number of input vari- 
ables for each term. 

The module 100-399 is for the data input. 
For this input scheme the user types in 
the input combinations for which a 1 out- 
put is desired. These can be either 
strings of zeroes and ones or upper and 
lower case letters. If there are don't 
cares present, the user enters "X" and 
follows with the don't care terms. The 
last input is followed by "END'\ 

If the user wants to create a different 
input, such as from a tape or a truth 
table, the important results are: B$ 
should contain terms which have a "1" 
output, where the first eatry is B$(0). 
B should equal the highest index of B$, 
A$(0-N) contains all the terms of B$ plus 
any don't care terms. N and N2 both 
equal the higtiest index of A$. Arrays A 
and Q should both equal zero for all 
entries, and L should equal the number 
of input variables. 

Module .400-449 is where the literals are 
reduced from the terms. Each term is 
compared to every other term and, if 
they differ by only one variable, the 
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variable is replaced by a don't care {-). 
The new ternn is added to the list, and the 
two connbined terms are marked for 
later removal. The process continues 
until the program loops through the en- 
tire list without further reductions. 

In module 450-499, the reduced terms in 
A$ are matched against the original 
terms in B$. Each required term is 
matched with the most-reduced term 
that covers it. 

Module 500-549 is used to compare 
different terms in A$. I and J are the In- 
dex values of the terms. The routine re- 
turns the number of variable differences 
in D. N$ is the reduced expression and is 
only valid if D = 1. 

In lines 550-599, a term N$ is added to 
A$ outside the range of the present loop. 
It is designed to conserve memory. No 
term will be added which is already in 
the list. The process usually generates 
duplicate terms, and it will place the new 
terms at the front of the list if those 
terms are marked for removal by 
A{l) = 1. 
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Module 600-649 removes all terms which 
were reduced but did not get removed in 
lines 550-599. It resets N and N2 to point 
to the end of the new list. The module 
from 650-699 compares terms in B$ to 
A$. I is the index of the B$ term and J 
indexes A$. In this routine, a comparison 
of any single variable in B$ is considered 
a match with A$ if the variables are equal 
or if the corresponding varialbe in A$(J) 
is a don't care, ASCII 45. The difference 
is returned in D. 

Module 700-799 finds the most restricted 
term in B$. The key to arriving at the 
minimum solution, as opposed to just a 
valid solution, is to find each required 
term with only one reduced term to 
satisfy it, an essential term. If all of them 
have more than one possible term, we 
select the term in B$ which could be 
satisfied by the least usefull term from 
A$. 

This is so that bad matches can be 
avoided early and, in the case of cyclic 
expressions which have several equiva- 
lent but different solutions, so that 
evaluation will not introduce redun- 
dant terms. 

In lines 800-899, the reduced terms are 
sorted to bring the terms that satisfy 
the most conditions to the beginning of 
the list. This insures that the best choice 
will be found first. 

The last module, at lines 900-999, locates 
the minimum number of reduced terms 
which satisfy the problem. The most 
restricted B$ term is paired with its best 
match in A$, and all other terms in B$ 
which are also satisfied are removed 
from further consideration. 

If the flag W is set to one, it means more 
than one solution exits for this problem. 



Table 1 : Four-bit Binary to 5-bit BDC Conversion Hap 



Usually the other solutions can be found 
by entering the terms in a different order. 
Sometimes, when there is more than one 
solution, the most economical solution 
will not be the first one found. This 
problem could be cured by generating all 
of the multiple solutions, but that would 
require more than the 8K of memory I 
had available. 

The result might be further reduced by 
going to a three level solution. This again 
requires more than 8K, but it would be 
reasonable to feed intermediate results 



QSW 




I + ' 
V / 



into a second program to obtain a com- 
pletely reduced result. 

The idea is to look for pairs of terms, 
each with a variable that matches with a 
don't care variable in the other term, and 
matching in all other variables. The 
matching terms can be combined by 
ANDing with the non-matching terms, 
making an OR at the next level. Terms 
that match in some variables but not in 
others can be combined in a next level 
of the matching gates with the differing 
variables in the lower level. 
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making an OR at the next level. Terms 
that match In some variables but not in 
others can be combined in a next level 
of the matching gates with the differing 
variables in the lower level. 

I have not yet been able to determine 
whether my method will result in the 
minimal equation. As of now, no tech- 
nique for this problem is known. The fol- 
lowing example will illustrate the entire 
process. 

The problem is to convert a 4 bit number 
into BCD (5 bits). The truth table for this 
conversion is shown in Table 1. We be- 
gin by entering the inputs for which we 
want output V to be true (1). The se- 
quence is; 

7 1010 
7 1011 
71100 
71101 
71110 
71111 
7 END 

and the computer replies, after a short 
delay, with: 

1-1- 
11- - 

This signifies that the minimum two 
level solution for V is AC + AB. The pro- 
cess is repeated for the rest of the out- 
puts giving results of: 



700 REM -PUT MOST RESTICTED TERM AT BEGINNING OF LIST 

70S F0RI=OT0B 

710 a(I)=0:T=B 

715 F0RJ=0T0N2 

720 GOSUB 650 

725 IF D=0 THEN Q< I )=n< I ) +1 : IFA( JXT THEN T=A<J) 

730 NEXT J :q(I)=q<I)+t/ioooo: next I 

735 IF B=0 THEN 755 
740 FOR I=1T0B 

745 iFQ(i)<a(0)THENN$=B$(i) :b$( I )=B$ (0) : B*(0)=N$ :x=Q( I ) :a( I )=Q< 0) :Q(0)=X 

750 NEXT I 

755 RETURN 

800 REM -PUT REDUCED TERMS WHICH CO^ER THE MOST AT THE FRONT OF THE LIST- 

805 F0RJ=0T0N2 

810 A(J)=0 

815 F0RI=OT0B 

820 GOSUB. 650 

825 IF D=0 THEN A(J)=A(J)+1 

830 NEXT I : NEXT J 

835 FOR I=0T0N2-1 

840 FOR J=I+1 TO N2 

845 IF A(I)>A(J) THEN 860 

850 N*=A$ ( I ) : A* ( I) -A$ ( J ) : A* ( J ) =N* 

855 X=A<I) :A(I)=A(J) :A(J)=X 

860 NEXT J : NEXT I 

865 RETURN 

900 REM-FIND ESSENTIAL TERM AND ELIMINATE ALL ORIGINAL TERMS THAT IT COVERS 

905 GOSUB 80o:gosub 7oo:i=o:j=o 

910 GOSUB 650 

915 IF D:>0 THEN J=J + 1:G0T0 910 

920 IF a(0).>=2THEN W=l 

925 GOSUB 975 

930 GOTO 950 

935 GOSUB 650 

940 IF D>0 THEN 1=1+1 

945 IF D=0 THEN GOSUB 975 

950 IF I<=B THEN 935 

955 N*=A*( J) :A$( J)=A$(N2) : A$ (N2)-N$:N2=N2-1 

960 RETURN 

975 N*==B*(i) :b*(I)=b*(B):b*(B)=n*:b=b-i:return 
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W = 100- 


AB' C 


X = 01 -- . -11 - 


A'B + BC 


Y = iin-,o-i- 


ABC + A 


z = 1 


D 



The next step is to input the values for 
output which have a reasonable nunnber 
of identical terms. For example, V and X 
have inputs of 11 10 and 1111 in common. 
To see if sharing a gate will reduce the 
equations, we enter V again with those 
terms as don't cares. The input se- 
quence is: 

71010 

71011 

71100 

71101 

?X 

71110 

71111 

7 END 

The output is the same as before; there- 
fore, no gates are saved by combining 
these terms. When the same thing is 
tried with V and Y we get a shared equa- 
tion of 1 10 - (which is already a term of Y) 
and re-entering V with 1100 and 1101 as 
don't cares gives an output of 1 -1 - 
which indicates that we can save a gate 
byusing V = AC + ABC. 

Further testing shows no more gates 
can be saved by this method, so the next 
step is to try to increase the levels. X is 
the only output which has terms that 
differ only at don't cares. 01 - and - 1 1 - 
can combine to (0)1(1)-, or B (A + C). 

This leads directly to the circuit of Fig- 
ure 1. Duplicates or unnecessary gates 
are shown by dashed lines. A network of 
alternating OR - AND gates can be con- 
verted directly to a NAND - NAND net- 
work by inverting the literals on odd 
levels, with the level nearest the output 
as one. This brings us directly to Figure 
2. 

There is still one problem. There are two 
gates which have three inputs and I only 
keep two-input NAND gates and invert- 
ers as spares. A three-input NAND can 
be replaced by 2 two-input NANDS and 
an inverter (A NAND B NAND C) = ((A 
NAND B) NAND C). Looking at the two 
offending gates, we see that they share 
A NANDC in their equations, so we can 
share a gate. 

The final circuit is shown in Figure 3. It 
can be realized with two quad NANDs 
and one hex inverter. This process could 
have been performed by entering the 
terms for which a zero value was desired 
(and don't cares) resulting In a network 
of NOR gates. Basic gates nearly always 
take more wiring in a circuit, but when 
purchased in quantity they are cheap, 
and they can make the difference be- 
tween finishing a project today or just 
waiting for parts. 



5 REM BOOLEAN EQUATION REDUCER 

10 REM ALAN K . CHRISTENSEN 

15 REM AUSTIN.TEXAS 4-14-79 

20 DIM A$(250)yA(250) 

25 DEFFNA ( I ) =ASC ( MI D* ( A$ ( I ) . M r 1) ) 

30 DEFFNB ( I ) =ASC (MID* ( B$ ( I ) f M f 1 ) .) 

35 POKE 59468 f 14 

100 re^ -data input- 

105 b=-i:n=-i:n2=-i:i=o:j=o 

110 INPUT N$ 

115 IF N$=-X- THEN B=N2:G0T0 110 

120 IF N*=*END' THEN 130 

125 GOSUB 550:G0T0 110 

130 IF B<0 THEN B=N2 

135 DIM B$(B)fa(B) 

140 FOR i=otob:b*<i)=a*(I):next I 

145 L==LEN(A*(0) ):N=N2 

400 REM -REDUCE TO MINIMUM LITERALS- 

405 L2=0:N2=N 

410 FOR I=0T0N-1 

415 FOR J=I+1 TO N 

420 GOSUB 500 

425 IF D=l THEN A ( I) =1 : A( J)=l :L2=1 tGOSUB 550 

430 NEXT J 

435 NEXT I 

440 GOSUB 600 

445 IF L2<:>0 THEN 400 

450 REM -ELIMINATE REDUNDANT TERMS- 

455 N3=N2 

460 GOSUB 900 

465 PRINTN* 

470 IF B>=0 THEN 450 

475 IF W=:1THEN PRINT "MULTIPLE SOLUTIONS' 

480 STOP 

READY* 
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i Screen Dump to Printer for the APPLE II 



No need to print yards of listing when you want only 
one or two screenfulls of data. Print only the display 
segments you select with this versatile BASIC language 
output routine. 



R. M. Mottola 

Cyborg Corporation 

342 Western Avenue 

Boston, MA 02135 



In certain programs it is often desirable 
to be able to print a screenfull of infor- 
mation on your printer after you have re- 
viewed it on the screen. Long lists of 
data could be reviewed, one screenfull 
at a time, and only those pages that 
were needed would be printed. 

The following short routine Is a BASIC 
version of a machine language printer 
driver. Its advantages are that it will 
work with the Apple Parallel Printer Inter- 
face Card and any printer, without the 
need to re-write the printer driver. Also, 
since it is written in BASIC, it is easy to 
understand and to modify. 

The first step required is to put a short 
machine language routine into memory. 
Lines 90 to 130 of the sample program 
POKE a routine into the free memory 
area starting at location $300. For sys- 
tems using Apple DOS, it is important 
that you perform this step after DOS is 
booted, because this area of memory is 
clobbered during boot. This routine will 
make a character available to the charac- 
ter output routine in the monitor, $FDED, 
which will in turn pass it to the appropri- 
ate printer driver. 

The second step is to add the screen 
printer subroutine to your BASIC pro- 
gram. This subroutine is shown in lines 



500 to 610 of the sample program. Start- 
ing at the "home" position on the 
screen, this subroutine passes each 
character in screen memory (page 1) 
to the printer card, via the COUT routine 
in the monitor. 

The POKE in line 560 passes the charac- 
ter to the machine language routine at 
$300. Although it may seem like a lot of 
"passing", this method alfowes the use 
of a conventional PR#X command from 
BASIC to specify which slot is to receive 
the output. Other commands of note are 
those in lines 520 and 590. The first tells 
the parallel printer interface to print only 
on the printer, and not on the screen. 
The second returns output to both the 
printer and the screen. 

The third step in implementing the 
screen printer is to add an INPUT state- 
ment to your program which asks the 
user if the screen is to be printed. This 
is found in line 250. Also note the POKE 
34, 23 in line 240. This command sets 
the top of the scrolling window to line 
number 23, the bottom line of the screen, 
thus insuring that the prompt itself does 
not get printed. 

The sample program listed is a demon- 
stration program designed to show the 
screen printer in use. The routines in it 
can be adapted to any BASIC program 



with little dificulty. One thing to keep in 
mind, though, is that flashing or inverse 
characters may print out in various dif- 
ferent ways, depending on the printer. 

If you want to include flashing or inverse 
characters on the screen, the addition, 
noted in lines 552 to 560, listed after the 
demonstration program, should be in- 
cluded. These lines test for and "normal- 
ize" blinking or inverse characters so 
they will appear normally on the printer. 
However, using this modification will 
slow down the screen printer routine 
considerably. Its BASIC implementation 
is pretty slow to begin with. Replacing 
all constants with variables will make 
either version much faster. 

See Applesoft II BASIC Programming 
Reference Manual, Appendix E, for more 
on this. If you are using Apple DOS, 
remember to replace all PR#X com- 
mands with print control D; "PR#X" 
to keep DOS from being turned off. 
Finally, if you are using Integer BASIC, 
please note that you will have to modify 
the logic structure found in line 554. 
For a complete map of how the various 
characters are stored in screen memory, 
see "An Apple II Page 1 Map" by M.R. 
Connolly Jr., MICRO 8:41. Happy screen 
printing! 
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3LIST 

13 REN DEMONSTRRTION PROGRRn 
i^3 REM SCREEN PRINTER ROUTINE 
20 REM FOR RPPLE II RPPLESOFT B 

RSIC 
3i3 : 

40 REM DEFINE VFlRIRBLES 
50 SLOT = 1 
68 OFFSCREEN* = "": REM "-::CTRL>I4 

ON" 
?"ei RETSCREEN* = " " ; 

REM "a:TRL>II" 
80 : 
30 REM PUT MACHINE LflNGURGE ROUT 

INE INTO MENORV 
100 FOR N = 76S TO 774 
110 RERD X : POKE N. X 
120 NEXT 

120 DRTR 173. 11. 3. 22, 237.. 253, 96 
140 : 
150 REM FILL SCREEN FOR D-EMONSTR 

RTION 
160 FOR X = 1 TO 3 
178 HOME ; RERD TXT* 
130 FOR V = 1 TO 22 
130 FOR Z = 1 TO 6 
200 PRINT TXT*.: 
210 NEXT Z 

220 PRINT "": REM NULL STRING 
230 NEXT V 
240 POKE 34, 23 

250 print : input "print screen? 

':;v/n:' "j rns* 
260 : if rns* - "v" then gosub 50 

8 
270 POKE 34, 
2S0 NEXT X 
290 DRTfl " MICRO", " RPPLE", " 650 

2 " 
300 END 
400 : 
450 : 
500 REM SCREEN PRINTER SUBROUTIN 

E 
510 PR# SLOT 
520 PRINT OFFSCREEN* 
530 FOR R = TO 30 STEP 40 
540 FOR B = TO 7 

550 FOR C = 1024 + R TO 1063 + R 
560 POKE 779.. PEEK <C + B + 12S> 
570 CRLL 76S 
5Q0 NEXT : NEXT : NEXT 
590 PRINT RETSCREEN* 
600 PR# 
610 RETURN 
PR#0 

3LIST 552. 560 

552 CHAR = PEEK CC + B * 128 > 
554 IF CHRR < 192 THEN CHRP = CV^ 

RR + 64: GOTO 554 
556 IF CHRR = 224 THEN CHRR = 16 


560 POKE 779. PEEK <C + B * 128'; 



Ctassilied Ads 



FREE SAMPLE copy - New BUY-SELL- 
TRADE Publication , indexed by 
product type j mailed monthly 
First Glass, 3500 circ;, low, 
low ad rates. Send for your free 
sample copy now! Subscription 
$3-50 per year ,V FREE THREE LINE 
AD with subscription. 
Order from: 

LECTRONICS EMPORIUM 

Dick Costello, Pub. 

P.O. Box 828 - : 

Derry, NH 03038 ^ - 

The TARGET for users of Rock- 
well's AIM 65. Find out how 
to use the printer, keyboard 
and display. Reviews of up- 
coming Assembler and BASIC in 
ROMs. Six bimonthly issues 
for $5.00 US and; Canada ($12,00 
elsewhere) . Order from: 

Don Clem 

RR#2 

Spencerville, OH il58;87 

ZIPTAPE loads 8K BASIC in 15 se- 
conds! slower than a speeding 
disc? Sure, but it only costs 
$22.50 plus $1.00 S4H.|3 00 
extra for software on KIM cassette 
Described in MICRO #6- SASE for 
info. Order from: \: 

Lew E!d wards 

1^*51 Hamilton Ave. 

Trenton, NJ 08629^ : 



S5M-1 Ci<Mp€*^ 

;S3^tirt§lcite<^ 



iltQifll 
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OSI Memory Test in BASIC 



All memory tests are not alike. This one features an ex- 
tensible, BASIC language implementation. 



William L. Taylor 

246 Flora Road 

Leavlttsburg, OH 44430 



Have you experienced the complete 
failure of your favorite program lately? 
Have you reloaded it into the machine 
only to have it bomb over and over 
again? Well, I have, and many times! This 
could be caused by a bug in the pro- 
gram, but if the program has run before 
and now bombs there must be some- 
thing wrong in the hardware. This usual- 
ly means that there is a reclusive bug 
hidden somewhere in those many K's 
of RAM. 

How do you find this reclusive bug? if 
you have a machine code monitor and 
loader, you could toad the memory and 
step through the program checking for 
errors. You might also load a diagnostic 
program to test the memory. "OK" you 
say, "but 1 don't have a machine code 
monitor. My machine has only BASIC 
in ROM. What do I do to check for these 



bugs in my machine? I have no means to 
get at these bugs in my machine with 
this BASIC only!" 

Well take heart, all is not lost. I have had 
this same experience. Felt the same 
wrath, of the same bug in those many 
K's of RAM, that you are feeling now! 
From this experience I made a decision. 
I decided to prevent this from doing me 
in over and over again. My solution to 
the bug-in-memory caper was to write a 
diagnostic program, in BASIC, to check 
the memory of the BASIC-in-ROM only 
machine. 

The program that I have written will load 
memory with an inital value stored in 
the D variable, between the address 
limits PI and P2. The program incre- 
ments the D variable from its initial 
value to 255 decimal. This represents 



650 REM MEMORI TEST BY W.L. TAYLOR 1/2/79 
660 PRINT •» ••••••MEMORY TEST^^^^^^ "rPRINT 

665 PRINT " ENTER STARTING PAGE AND ENDING PAGE": PRINT 

700 INPUT " STARTING PAGE ";P1 

710 INPUT " ENDING PAGE ";P2 

720 D=0 

730 LET A=P1»256 

740 LET BsP2^256 

750 FOR C= A TO B 

760 POKE C,D 

770 ErPEEK (C) 

780 IF EOD THEN PRINT " BAD DATA BYTE AT";C 

790 IF EOD THEN END 

800 NEXT C 

810 D=D+1 

820 IF D<256 THEN 750 

830 IF Dr256 THEN PRINT 

DETECTED": PRINT 
840 END 



TEST COMPLETE WITH NO BAD DATA BITS 



all combinations of bits that can be 
stored in a memory location. After the 
bits are stored, the program compares 
the data bits in memory to the initial 
value that was stored there and, if they 
are not the same, a report will be printed 
out to the terminal. 

I have written the program to request 
page numbers for the starting and end- 
ing addresses. This could be changed 
to use decimal equivalents if the reader 
wishes. The starting address is con- 
tained in variable PI at line 700. The end- 
ing address is contained in P2 at line 
710. The contents of both variables are 
multiplied by 256 to obtain the decimal 
equivalent of the page numbers. Line 
720 is the inital value of the data and is 
usually set toO. 

At line 750 the program is told to load 
the limits of memory between PI and 
P2 via a FOR-NEXT loop. At line 760 the 
data bits are POKEd into memory. Line 
785 looks at the data In the memory 
location that was previously stored. 
At line 790 I compare the data stored in 
memory against the data in variable D to 
see if the two are equal. The next byte is 
loaded and compared at line 800. 

Line 825 increments the data value in the 
D variable. Line 830 checks the D vari- 
able to see if 255 decimal has been 
reached and, if not, executes a return 
loop through the program. Line 840 re- 
ports the results of the memory test. 

This program was written in Microsoft 
BASIC for the OSI Challenger. It should 
run under other BASICS with minor 
modifications. The program will be of 
interest to users of machines with 
BASIC in ROM and others who want a 
simple way to test memory. The program 
is some what slow, but this a very small 
price to pay for the ease of operation. 
Good luck and good memory testing. 
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SYM and AIM Memory Expansion 



An easy hardware modification addresses extended 
memory in contiguous 8K blocks with no gaps. This neat 
enhancement makes Memory Plus a natural for RAM- 
ming more data into the SYM and AIM. 



PaulSmola 
Acushnet Corporation 

P.O.BoxE916 
New Bedford, MA 02742 



• 



In an attempt to implement BASIC on the 
SYM it became apparent that the 4K of 
onboard RAM was insufficient for our 
needs. Although we have several Mem- 
ory Plus boards around, the RAM on 
these boards is addressable in 8K byte 
blocks decoded at 8K boundaries, begin- 
ning at location 2000. Unfortunate- 
ly, this decoding scheme leaves a 4K 
block of memory unimplemented. That 
block of memory is from address 1000 
through 1FFF. 

In order to overcome this shortcoming, it 
is desirable to decode the Memory Plus 
board in 8K blocks that are address- 
able at 4K boundaries; that is, at loca- 
tions 1000, 3000. 5000, etc. With this 
scheme several MP boards could be add- 
ed on to expand the SYM memory in a 
continuous fashion. There are methods 
available for making this change, but 
most of these require changes on the MP 
board itself. This is undesirable, espe- 
cially if servicing becomes a problem. 
The solution lies in replacing the three 
high order address line decoding 
schemes with one that will address 
memory at 4K boundaries. This can be 
accomplished by bringing addresses 
A12, A13, and A14 into the inputs of the 
74LS138, as opposed to the present A13, 
A14, and A15. With this change any posi- 
tion of the rotary switch which selects 
the RAM decoding address enables the 
RAM at 4K boundaries, and also only in 
4K blocks. 
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1 6-pin DIP header 



Interconnected 
as shown above 
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Remove the 7^LS138 from socket U4 on the MP 
board and replace it with the above assembly 



If we were to OR two adjacent outputs 
together, we would have 4K boundaries 
with 8K blocks. However, because the 
outputs of a 74LS1 38 are totem-pole, OR- 
ing them must be done with additional 
gating and not simply by tying the out- 
puts together, as is done with open- 
collectoroutputs. 

One method of doing this is by replac- 
ing the "138 with a 74LS145 BCD-to- 
decimal decoder driver. This device has 
open collector outputs enabling them to 
be wire OR'ed together. However, the pin 
out on the '145 is radically different from 
that on the '138. 

The way to get around this is to mount 
the '145 in a 16 pin dip socket which is in 
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Solder to pin #E-R on the 
Memory Plus Expansion Connector 



Figure 1 
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Figure 2 

turn connected to a 16 pin dip header. 
However, rather than matching the pins 
number for number, the connection 
diagram in Figure 1 is followed. This is 
most easily accomplished by using a 
three level wire-wrap socket and cutting 
short all the pins except 8 and 16. These 
shortened pins are then wired to the cor- 
rect position on the header by soldering 
jumpers on. This causes the pin out con- 
nections to be changed and thus allows 
the '145 to operate in the socket which 
was previously loaded with the '138. 

The 16 pin dip header is then loaded 
into the MP board into socket U4 as 
shown in Figure 2. The '145 has the ad- 
vantage of having four address input 
lines. Thus address lines A12, A13, A14, 
and A15 are brought into it and fully 
decoded. Since address line A12 Is not 
brought to socket U4, it must be 
separately wired. A convenient place to 
make this connection is on the MP ex- 
pansion connector pin #E-R. 

With these changes, tVie RAM select 
rotary switch now selects hex locations 
1000-2FFF at the first two positions. At 
the second two positions RAM is 
selected at 3000-4FFF. In the third two 
positions RAM is selected at locations 
5000-6FFF. RAM will not be selected 
with the selector switch in the seventh 
position. 

With the switch in the first or second 
position, BASIC on the SYM can be im- 
plemented with 12K memory; the 4K on- 
board, plus the 8K from the MP. The ad- 
dition of another MP board set up the 
same way with the RAM selection switch 
in either position 3 or 4 would yield a 
system with 20K of continuous memory. 

July 1979 



6502 Based SYSTEMS 



The COMPUTERIST offers' the best in the single-board, 6502-based microcomputers. These include the Rockwell AIM-65, Synertek Systems SYM-1, 
Commodore KIM-I, and, late this fall, The COMPUTERIST MICRO PLUS. As you will see from this catalog,, The COMPUTERIST is devoted to 
supporting this class of 6502 systems. Think of us first - for all of your 6502 needs: Systems, Expansion, Power, Software, and other items. 



The AIM 65 is a complete microcomputer system, not just a single board computer. It 
has many of the features of the KIM-1 and SYM-1, but also has three alphanumeric type 
devices which make it significantly different: 

Full size typewriter style keyboard - makes it easy to enter data. 

Twenty character LED display with sixteen segment displays for good looking, easy-to- 
read alphabetic and numeric characters. 
Twenty column thermal printer for alphanumeric hardcopy. 
Other features include: 

An 8K ROM Monitor with a mini-assembler/disassembler, editor, numerous operator 

functions and many important subroutines for program development. 
Comes with 1 K RAM expandable on-board to 4K. 
Has provision for an additional 12K of ROM including a 4K Assembler and an 8K 

BASIC. 
The expansion and application pin-outs are compatible with the KIM and SYM, 

making it simple to interface to existing devices. 
Supports KIM format cassette tapes at 1 and 3 times normal speed, plus its own high 
speed cassette I/O. Includes two complete cassette ports with remote control 
facilities. 
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The Complete 6502 System 


20 Column Thermal Printer 
20 Character LED Display ^^ 
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H^^^^B^^ Up to 4K RAM on board 
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Typewriter style ^^^^ ' 
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^^ Versatile 8K ROM Monitor 


AIM 65: $375«)1KftAM 


$42000 4K RAM 
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High Speed Audio Cassette I/O 
4K SYM Monitonn ROM 
Up to4K RAM on board 
Up to 1 2K additional ROM 
Over 50 I/O line capability 



by Synertek Systems 



An Expandable 6502 System 







SYM-1: $27000 IK RAM - 31SM4K RAM 



The SYM-1 is a relatively new entry into the 6502 market by Synertek Systems. The board 
is the same size and shape as the KIM-1 and uses the same connector placement and 
pin-outs, thereby maintaining a fair degree of compatibility with the KIM-1, Its main 
advantages are; 

It comes with IK of user RAM, and is expandable on-board to 4K RAM. 

A larger Monitor - 4K vs the KIM 2K - with a number of useful functions. 

It has room on-board for an additional 12K ROM. This ROM may be programs and 
data defined by the user or Synertek supplied programs such as an Assembler or 
BASIC. 

It has much more I/O capability than the KIM-1 and improved timers. 

It has K IM compatible tape format as well as a higher speed tape format. 

Like the KIM, it supports a teletype terminal, but it also supports more sophisticated 
terminal interfaces. 

The touch-pad type of entry keypad is more reliable than the type used on the KIM. 
If you need the added features of the SYM-1, especially the extra RAM and ROM 
provision, then this is a best buy. It currently has limited supporting software, being new 
to the market, but this should not be a long term problem 



The KIM-1 is the grand-daddy of all 6502 based microcomputer systems. It was orignally 
created by MOS Technology, the inventors of the 6502, as a way to demonstrate the 
power of the 6502 to the industrial community. To their surprise, the KIM-1 became a 
highly successful single board computer - used in industrial control, education, hobby, 
and many other applications. It is still very popular today. Features of the KIM-1 are: 

Based on the 6502 microprocessor with its powerful instruction set 

Two 6530 multi-purpose chips each containing IK ROM, 64 bytes RAM, a programmable 

timer and 15 I/O lines. 

IK bytes of RAM, a Hex Keypad for entering programs and data, and a six character 

LED display. 

It supports a 20mA Current Loop TTY and Audio Cassettes for program/data storage. 
The very low price makes this an excellent buy - and the expansion bus structure is 
compatible with the AIM 65 and SYM-1 so that conversion to one of these other systems 
can be made with minimal hardware difficulty. There exists a large body of literature and 
many "ready-to-run" programs for the KIM-1 . 
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by Commodore 



The Original 6502 System 



20 mA Current loop TTY Interface 

Audio Cassette Intetface 

15 User I/O lines 

2 Interval Timers 

1IC+ RAM 

2K KIM Monitor ROM 

Hex Keypad/LED Display 




KIM-1: $1«0W> 
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The Super 6502 
Single Board 
Computer 




Features: 
FLOPPY DISK CONTROLLER 
Up to 16K PROMrtPROM on-board 

KIM Compatible CASSETTE I/O 
20MA Current loop TTY Interlace 
Lots of 6522 type I/O 
Up to 16K RAM on-board 
Planned for Late 1979 



MICRO PLUS*'" is currently in the advanced design stages. 
It will be a single board microcomputer featuring: 

6502 Alicroprocessor 

Floppy Disk. Controller for Mini and Regular Floppy Disks 

Cassette I/O including KIM compatability 

20 MA Current Loop TTY Interface 

Up to 16K RAM on-board 

Up to 16K ROM/EPROM on-board 

Several 6522 VIAs 

Same SIZE and SHAPE and PIN-OUTS as KIM-1/SYM-1 
Plus a couple of proprietary features to be announced later. Scheduled for initial 
delivery late 1979. Please do not call or write for additional info until September 1979. 



SYSTEM EXPANSION 



The COMPUTERIST makes it easy for you to expand your KIM-1, SYM-1 or AIM 65 based system. Four boards are offered to. increase the memory 
of your system, add full feature video to your system, provide a means to add your own circuits, and a means to get all of these added features 
working together. The design of these boards makes it possible for you to choose one vendor for all your normal system expansion requirements. 
The four boards are designed to work together and fit together in a system configuration which makes sense. The PLUS on each board represents 
added features that are not found on similar boards offered by other manufacturers - PLUSES that often dramatically enhance the capabilities 
of your basic system. 



i^i[i!a(«)a^ ^\m^ 




AIM/SYM/KIM 
8K STATIC RAM pi°*p 
Sockets for 8K Eprom 
6522 1/0 Port 

ON BOARD REGULATORS 

EPROM 
PROGRAMMER 



MEMORY PLUS: $20000 fully assembled and tested 



EXPAND YOUR SYSTEM WITH MEMORY PLUSTM 

MEMORY PLUS combines four of the most important system expansion capabilities on one PC board. This board uses 
the standard KIM-4 Expansion Bus and is the same size/shape as the KIM-1 /SYM-1 so it can be conveniently placed 
under any AIM/SYM/KIM system. The four functions are; 

8K RAM -with low power 2102 static RAM - the most Important addition for most systems. 

8K EPROM -sockets and address decoding for up to 8K of Intel 2716 type EPROM. 

EPROM Programmer - program your E PROMS on the board! I/O ■ 6522 Versatile Interface provides two 8 bit I/O 

ports, two multi-mode timers, and a serial/parallel shift register. 
Other features of Memory Plus include: 

On-board voltage regulators for + 5V for general power and + 25V for the "^ PROM Programmer. 

Independent switch selection of the RAM and ROM starting addresses. 

All iC's socketed for easy field replacement. 

Fully assembled and burned in - ready to plug in and go. 

Documentation includes a 60+ page manual with schematics, program listings, 2716 and 6522 data sheets, and a 
cassette tape with an EPROM Programming Program and a Memory Test. 

Over BOO MEMORY PLUS units are already in use with AIMs, SYMs and KIMs . 

May be directly connected to your system with our cable or through our MOTHER PLUStrn board. 



IT'S EASY TO ADD VIDEO PLUS^MJO YOUR SYSTEM. 

VIDEO PLUS is the most powerful expansion board ever offered for 6502 based systems. It has many important video 
features including; 

Programmable Display Format- up to 100 characters by 30 lines on a good monitor 

A ROM Character Generator with UPPER and lower case ASCII characters. 

A Programmable Character Generator for up to 128 user defined characters which may be changed under program 
control. You can define graphics, music symbols, chess pieces, foreign characters, gray scale - and change them at will! 

May be used with an inexpensive TV set or an expensive monitor. 

Up to 4K of Display RAM, with Hardware scrolling, programmable cursor, and more. 
In addition tothe video features, VIDEO PLUS also has; 

A Keyboard Interface which will work with any "reasonable" keyboard. 

A built-in Light Pen Interface. 

Provision for a 2K EPROM or ROM for video control or other software 

All of the memory - 6K RAM and 2K EPROM can be used as system memory whenever it is not in use as display or 
programmable character generator. 

VIDEO PLUS may be used directly as an expansion of an AIM/SYM/KIM system, or has provision for the addition 
of a 6502 for use as a Stand-Alone system or Terminal! 

Only requires +5V and has on board voltage regulators. Since it's the same size/shape as the KIM or SYM, it may 

easily be placed under an AIM/SYM/KIM system. It uses the KlM-4 expansion format. 
Fully assembled, tested and burned in. Connect directly to your system or via the MOTHER PLUS board. 
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FOR AIM/SYM/KIM 




UPPER/lower case ASCII 

128 Additional User Programmeble 

Characters: GRAPHICS- 

SYMBOLS-FOREIGN CHARACTERS 

Programmable Screen Format up to 
80 CHARACTERS - 24 LINES 

KEYBOARD and LIGHT PEN Interfaces 

Up to 4K DISPLAY RAM 

Provlalon for 2K EPROM 

Provision to add 6502 for 

STAND-ALONE SYSTEM 

ASSEMBLED AND TESTED 

WITH 2K DISPLAY RAM 

VIDEO PLUS: $24500 



AIM/SYM/KIM 

Same SIZE and SHAPE as KIM/SYM 




Double Sided, Plated Ihrough Holes 

Two Sets of COLD Plated Dual 22. Fingers 

Designed for WIRE WRAP or 
SOLDER Connections 

Provisions for 40 14/16 pin sockets 
4 24/40 pin sockets 
3 voltage regulators 
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PROTOPLUS: 


54000 



ADD YOUR OWN CIRCUITS WITH PROTO PLUS^m 

PROTO PLUS is the simple way to add special circuits to your system. It is the same size 
and shape as the KIM and SYM, making it extremely easy to use with these systems, and 
can be neatly added to the AIM as well. It provides about 80 square inches of work 
area. This area has provision for about 40 14/16 pin sockets, about 4 24/40 pin sockets, 
3 regulators, etc. The connections to the board are made through two sets of gold plated 
fingers - exactly like the AiM/SYM/KIM. This means that there are a total of 88 edge 
connections - more than enough for most applications. This is a professional quality, 
double sided board with plated through holes. The layout was designed so that you can 
use wire wrap sockets or solder sockets - each IC pad comes out to multiple pads. There 
is room for voltage regulators and a number of other "non-standard" devices. The 
PROTO PLUS will plug directly into the MOTHER PLUS making for a handy package. 



PUT IT ALL TOGETHER WITH MOTHER PLUS^M 

MOTHER PLUS provides the simpliest way to control and package your expanded system. MOTHER PLUS does three 
major things: 1 - provides a method of interconnecting the individual boards (MEMORY PLUS, VIDEO PLUS, PROTO 
PLUS); 2 - provides buffering for the address, data and control signals; and, 3 - acts as a traffic cop for determining 
which addresses are reserved for the processor and which for the expansion boards. It supports the standard KIM-4 
Expansion Bus, so it is electrically compatible with a large number of expansion boards. It is structured so that the 
processor board fits into the top slots with the expansion boards mounting below. This permits a system to be neatly 
packaged - it doesn't have its guts hanging out all over a table top. Provision is also made for application 
connections through solder eyelet connectors. Specifically designed to work with AIM/SYMfKIM systems. Other 
features are: a terminal for bringing power into your system; phono jacks for the Audio In/Audio Out; phono jacks 
for connecting a TTY device; provision for a TTY/HEX switch for the KIM; a 16 pin I/O socket for accessing the host 
Port A/Port B; plus two undedicated 16 pin sockets which may be used to add inverters, buffers, or whatever to your 
system. 
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ADD UP TO FIVE ADDITIONAL BOARDS 
AUDIOnTY CONNECTIONS 
POWER TERMINALS 
APPLICATION CONNECTORS 

FULLY BUFFERED 
FULLY DECODED 
KIM-4 Bus Structure 

MOTHER PLUS: $8000 



AIM/SYM/KIM 




FULLY ASSEMBLED AND TESTED 



POWER SUPPLIES 



The COMPUTERIST offers a variety of power supplies to meet the varied requirements of 6502 based systems. 
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ALL THE POWER A 




KIM-1/SYM-1 NEEDS 




Neat, Compact, Economical 
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■^^^■IH^MMHI Wi II Power a K 1 M'1 /S VM-1 a nd one 
m Additional Board 

Such as MEMURV PLUS or VIDEO 

POWER PLUS: $4000 plus 
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We offered the first power supply built specifically for the KIM-1 and since May 1977 
have delivered over a thousand units. This unit - POWER PLUS - is a simple model. It 
does not even have an On/Off switch or Pilot Light, but does provide the power for a 
KIM-1 or SYM-1 with enough to spare for an additional MEMORY PLUS or VIDEO PLUS 
board. For the small home system, the electronics lab, the class room, etc., where the 
system is not going to be greatly expanded, this is an ideal unit, and is priced very low. 

For more advanced systems or more demanding environments we offer three heavy duty 
supplies. Each of these comes in an all metal case; includes an On/Off Switch and Pilot 
Light; may be run on 115V/60Hz or 230V/50Hz AC power; has a grounded three-wire 
power cord; and has a screw-type terminal strip for each connection. 

A special supply is available for the basic AIM 65 system. This is a small, open-frame unit 
which may be placed inside the standard AIM Enclosure. It provides enough power for 
the AIM 65 including printer and one additional board. 
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ALL METAL HEAVY DUTY CASE ^ 

ONrOFF SWITCH and PILOT LIGHT ^^^^ | 
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115/60HZ or 230r5QHz INPUT ^^^H fW 
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GROUNDED THREE-WIRE ^^^H ". "^'^^^^ J 

POWER CORD ^^H "^^Ills^-"*'*'^^ 




POWER PLUS 5: + 5V at 5A, ± 12V at 1A $7500 
POWER PLUS SUPER 5: + 5V at 10A, ± 12V at 1A $95«» 
POWER PLUS 5/24: + 5V at 5A, + 24 at 2.5A, ± 12V at 1 A $95oo 









SPECIFICALLY DESIGNED FOR THE AIM 65 

Small Enough to Fit Inside the AIM Enclosure 
Enough Power for the AIM 65 Fully Loaded 
. Pius an Additional Board 

Worii& on IISVJMHz or 23OV/50Hz 

Provides Regulated + 5V at 5A and + 24V at 1 A 

Grounded Three-Wire Power Cord 
ON/OFF Switch and Pilot Light 
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POWER A PLUS:$50*>o 



ENCLOSURES AND CASSETTE RECORDERS 
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ENCLOSURE 

WITH BUILT IN 

POWER SUPPLY 

SPECIFICATIONS: 

IhfPUT: 110/220 VAC 50/60 Hz 

OUTPUT: + 5V @ 5A 

+ 24V @ 1A 
GROUNDED THREE-WIRE LINE CORD 
ON/OFF SWITCH WITH PILOT LIGHT 
Enclosure has room for the AIM and one 
Additional board: MEMORY PLUS or VIDEO PLUS 

AIM PLUS: $100^0 AIM and AIM PLUS: $475^0 
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ENCLOSURE PLUS 
for KIM: $3000 



The Ultimate Enclosure 
for the KIM-1 

Protects Vour KIM-1 

Neat, Attractive, Professional 

Full Access to the Expansion and 
Application Connectors 

Enhances the LED Display with a Red Lense 

Room for the KIM<1 and One 
Additional Board such as 
MEMORV PLUS or VIDEO PLUS. 
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The SUPERSCOPE(R) C-190 Cassette Tape Recorder by Marantz is a very high quality 
audio tape recorder which has a number of features which make it particularly well 
suited to use with microcomputers. 

Runs on 110V AC or 6V DC from a power pack or batteries. Has Tone Control and 

separate Volume Controls for Recording and Playback. 

Has VU Meter for recording level, and has three recording modes: Automatic Record 

Level, Limiter or Manual. Has Tape Speed Control - Adjusts ±20%. This is especially 

useful when using tapes recorded on other recorders. 

Tape Counter - 000 to 999. 

Electronics remain ON when recording is being held OFF in Route. 
An excellent unit which has been recommended by several of the microcomputer 
manufacturers. 



SUPERSCOPE c-190 
by Marantz 

A High Quality Cassette Recorder 
with all of the Features Required 
for Microcomputer Systems: 

VU Meier Displays Recording Level 

110VACor6#VDCor8attery Operation 

Tape Location Counter 

Three Recording Methods 

Variable Speed Control: ±2tJ% SUPERSCOPE C-190: $900<* 

Remote Control Leaves Electronics ON 




SOFTWARE and Other Good Stuff 
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To make any microcomputer system useful, you need software. The COM- 
PUTERIST has software packages available for three systems. Each of 
these packages come with full User/Operator Instructions, a Cassette Tape, 
and, with the exception of MICRO-ADE, a complete set of Source Listings 
so that you can more fully understand, utilize, and modify the software. 

PLEASE*"™ is a collection of games and demonstrations. It contains a dozen 
programs such as a 24 Hour* Clock, a High/Low number guessing game, 
"Shooting Stars", a Drunk Test, an Adding Machine, and so forth. PLEASE 
is written in a "high level language" which permits the user to make simple 
modifications and create his own demonstrations. It will run on an unex- 
panded KIM-1 , or on a SYM or AIM with 2K RAM. $10.00 

MICROCHESS*"" is the original chess player for small systems. While it does 
have some limitations, it does play a reasonably good game of chess. It in- 
cludes a number of "canned" openings and makes a good tutor for a 
beginner or a brush-up challenger for the more advanced player. Includes 
three levels of difficulty. It will run on an unexpanded KIM-1, or on a SYM 
or AIM with 2K RAM. $15.00 

HELP*"* Mailing List is a complete package for the maintenance and prin- 
ting of mailing lists. It includes an Editor for entering and updating the 
mailing lists; a List Printer which outputs a single tabular format line per 
entry for analysis and updating; and a Label Printer which outputs to 
mailing labels. The List and Label functions include the capability of ab- 
stracting subsets of the total mailing list and of adding an extra line of in- 
formation - such as "Subscription Expired" - to a subset of the mailing list 
It requires program control of two cassettes and some form of printing ter- 
minal. It will run on an unexpanded KIM-1, or on a SYM or AIM with 2K 
RAM $10.00 

Bits and Bytes 

While The COMPUTERIST does not, in general, sell IC's and other small 
pieces of hardware, there are a few useful devices which we use in large 
quantity in our own products and which we can offer at good prices to our 
customers. 

2114 Low Power Static RAM (1 K by 4 bits) 2 for $15.00(1 K bytes) 

Used to expand SYM, AIM, or VIDEO PLUS 
2102 Low Power Static RAM (1 K by 1 bit) 

Type used in KIM-1 and MEMORY PLUS 
6522 VIA Versatile Interface Adapter 

Used in SYM, AIM, MEMORY PLUS and VIDEO PLUS 
Dual 22/44 Pin Connectors- Solder Tail or Solder Eyelet 

Three required for MEMORY PLUS or VIDEO PLUS 
AIM/SYM/KIM to MEMORY PLUS/VIDEO PLUS CABLE 
HELP Relay Package- everything required to control two audio 

cassette recorders (except the PC board) 



8 for $10.00 (IK bytes) 



$7.50 



HELP*"* Information Retrieval is a package for creating and retrieving from 
a cassette based data base. The Editor portion permits the user to create 
files with up to six independent Data Fields plus a Flags Field which con- 
tains abstract data about the file. The Retrieval portion permits entries to 
be selected by the contents of any combination of Data Fields and/or by up 
to six independent tests on the Flags Field. The Flags Field tests include 
three "equal" tests, one each "not equals", "greater than" and "less than" 
test. The program is a good demonstration of the power of a small system. 
It will run on an unexpanded KIM-1, or on a SYM or AIM with 2K RAM. It 
also requires program control of two cassettes and some form of ASCII 
terminal. $10.00 

MICRO-ADE*"™ is a complete Assembler, Disassembler, and Editor package. 

The Assember is a full scale version with six character labels, two-pass 

capabilities, and makes good use of the cassettes for assembling large 

programs. The Disassembler converts object code into user readable source 

code. If a symbol table is available for the code being disassemWed, 

then a complete listing with labels may be obtained. The Editor can 

be used separately or in conjunction with the Assembler. It features 

Line Insert/Delete, can Move sections of lines, and uses the Cassettes for 

automatic control of large files. MICRO-ADE will run on a KIM, SYM or 

AIM with at least 8K RAM starting at address 2000. A version to run in 4K 

ROM plus 4K or more of RAM is included on the cassette tape. While 

MICRO-ADE can work entirely with RAM, it is most powerful when used in 

conjunction with two cassette recorders under computer control. Some 

type of ASCII terminal is required. MICRO-ADE comes with complete 

Operator Instructions and the Source Listing for the I/O portion of the code 

so that a user can adapt it to his own specific devices. Complete Source 

Listings may be purchased separately. $25.00 each 
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Total 




Regular 


Power Supply 


Order 




Items 


or Cassette Recorder 


Up to $15.00 




$1.00 




Up to $50.00 




$2.00 


$3.00 


Over $50.00 




$3.00 


$5.00 



$2.00each 
$15.00 

$10.00 



Please provide Street Address for UPS. 
Prepaid or COD unless credit has been established. 

Mass. Residents add 5% sales tax or provide Tax Exempt Certificate- 
Foreign 

Add 10% of total, minimum $3.00 
Overpayment in excess of $5.00 will be refunded. 
All items AIR Parcel Post except Power Supplies 

which due to their weight must go surface. 
All payments must be via International Money Order. 




©©D^pjyjrgi^ogT 



P0B»m3 ^ 8m. Ckmimmti'tl, Mmmm 01024 - 9i7/259-3949 




The AIM/SYM/KIM Leader 



The First Book of KIM — on a SYM 



Programs presented in The First Book of KIM can be 
modified to run on a SYM. What's more, the techniques 
presented here will aid in the conversion of other KIM 
software. 



Nicholas Vrtis 

5863 Pinetree S.E. 

Kentwood, Ml 49508 



Anyone who purchased "The First Book 
of KIM" with the expectation of easily 
modifying the programs to run on their 
SYM quickly found that the KIM and 
SYM might be hardware compatable, 
but the monitors are a lot different. The 
SYM manual has a list of SYM counter- 
parts to the KIM routines. It also makes 
the disclaimer that "the routines do not 
perform identically.'' This is an over 
simplification! Some of the SYM rou- 
tines are really only distant cousins to 
their KIM counterparts. The routines 
listed in the SYM manual are not close 
enough to the KIM routines to be easily 
substituted for the KIM entry points 
used in the book. 

The first couple of programs I converted 
the hard way, with lots of relocating and 
some logic changes. I finally got smart 
and took the time to write these routines 
using simple address substitutions. 
These routines are obviously not identi- 
cal to the KIM versions they replace, and 
definitely do not take the same number 
of execution cycles. 

You may have to "tweek" some of the 
delay loop counters in the programs. 
Otherwise, replace the KIM addresses 
with these, fix up the I/O addresses 
(which I will also discuss later) and about 
90% of your conversion is done, at least 
for the games. 



I have not bothered to try any of the 
cassette programs yet. I have enough 
problems with the SYM standard rou- 
tines. There will be some places where 
you may need to get a little fancy to do 
the conversion without relocating 
things. Just remember that if you can 
perform an equivalent function in fewer 
bytes you can use NOP's to avoid re- 
location. 

Before I get down to discussing the rou- 
tines and some notes about writing 
directly to the displays, I would like to 
mention that these routines require one 
hardware modification to the SYM board 
in order to work properly. The modifi- 
cation is to remove the jumper that en- 
ables system RAM write protect, jumper 
MM-45, just to the left of the crystal. 

This is the first modification I made to 
my SYM, and I have not regretted it at 
all. If you are leary about permanently 
disabling something, as I was, you will 
find that a four position DIP switch does 
nicely. You will get the added advantage 
of being able to write protect user RAM. 
The alternative is to insert a JSR 
ACCESS at the start of each routine. 

The first routine is the one to light the 
on-board displays, and actually has two 



entry points. If you enter at SCAND, the 
byte indirectly pointed to by POINTL is 
moved to INH, and then the program 
falls through to SCANDS. This routine 
lights the display with the six hex values 
corresponding to the three bytes 
POINTH, POINTL, and INH, and then 
returns. 

The SYM "equivalent" standard routines 
OUTBYT and SCAND are not suitable re- 
placements. OUTBYT takes the bytes 
in the A register, converts them to two 
hex digits, and rolls them into the dis- 
play from the right. Repeated calls to 
OUTBYT cause the characters to march 
from right to left across the display. 

SCAND, on the other hand, lights the 
display with six hex digits as we want, 
but it assumes that the segment codes 
are already in the display buffer. This is 
further complicated by the fact that the 
display buffer is at $A640, which is a two 
byte address instead of the single byte 
used by the KIM. 

What I did was to pick up the data from 
the KIM addresses, convert it into seg- 
ment codes by using each nibble as an 
index into the SYM segment code table, 
and store all six bytes of segment code 
in the display buffer before calling the 
SYM SCAND routine to light the display. 
Fortunately, the KIM addresses do not 
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conflict with important SYM addresses. 
Specifically, $FA and $FB are used by 
SYM as the pointer to RAM for the EXE- 
CUTE comnnand, and $F9 is used as a 
work area for the terminal I/O routines. 



The SYM subroutine GETKEY super- 
ficially resembles the KIM routine of the 
same name. The SYM does a lot more 
for you, since it lights the display and 
waits for the key to be pressed. It also 
debounces the keyboard, and converts 
the key code to ASCII. The KIM routine, 
on the other hand, reads the keyboard 
and returns with a binary number cor- 
responding to the key pressed. It does 
not wait to debounce the keyboard, nor 
does it light the display. This makes it 
easier to program the keyboard indepen- 
dently of the display. It is also more 
work, by the way. 



The SYM routine LRNKEY is a closer 
approximation to the routine we want. 
It scans the keyboard once, converts 
the key code to ASCII, and returns. Con- 
veniently, the value in the X register is 
the index that was used to get the ASCII 
equivalent of the key pressed. This table 
starts with the code for ZERO, so the 
value in X is neatly set through F for 
those keys, and all we need to do is 
transfer it to the A register. 



The SYM has more keys than the KIM, 
so these are set to the KIM value for 
"no key" on the assumption that the KIM 
routines wouldn't know what to do with 
them anyway. For the remaining keys 
we just use a translate table that is 
somewhat arbitrary since the keys are 
not labeled identically. See the program 
listing for which keys are translated to 
what, and note that the SYM shift key is 
made equivalent to the KIM "no key" 
value. 

The KIM routine KEYIN has a very close 
equivalent in the SYM entry KEYQ. The 
main difference between them is which 
way the zero flag gets set if a key is 
down. The KIM returns a zero condition 
if a key is down, and the SYM returns as 
not zero. All this routine does is load a 
$FF or $00 into the X register to reverse 
the SYM zero flag setting. 

The reason the X register is loaded with 
$FF for a "no key" is that LRNKEY in 
the SYM monitor does an INX immedi- 
ately before returning if entered with- 
out a key down. With X set to $FF upon 
entry, this will result in a zero condition 
from the LRNKEY routine. Since none of 
the ASCII codes are zero, we can set the 
appropiate key value in the GETKEY 
routine. This way a JSR KEYIN followed 
by a JSR GETKEY will be consistant 
with the KIM routines. 



0010: 
0020: 
0030: 
OOAO: 
0050: 
0060: 
0070: 
0080: 
0090: 
0100: 
0110: 
0120;- 
0130; 
01^*0: 
C150: 
0160: 



MICRO-WARE ASSEMBLER 65XX-1.0 PAGE 01 



SYM-I VERSIONS OF VARIOUS KIM ROUTIKES 
BY: NICK VRTIS . LSI/CCSD Oit/12/79 
MODIFIED BY MICRO STAFF 06/06/79 

THE PURPOSE OF THESE ROUTINES IS TO PROVIDE A CERTAIN 
AMOUNT OF SOFTWARE COMPATIBILITY BETWEEN THE SYM AND 
KIM MONITORS. THIS WILL MAKE IT EASIER TO CONVERT 
PROGRAMS WRITTEN FOR THE KIM TO RUN ON THE SYM. 

TIME DEPENDENT CODE IS NOT SIMULATED 

NO ATTEMPT IS MADE TO DUPLICATE THE KIM MONITOR, 
ENTRY POINT FOR ENTRY POINT. RATHER, THESE ARE 
THE MAIN ROUTINES AS USED IN 'THE FIRST BOOK OF 

KIM' . 



0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230: 
02^0: 
0250: 
0260: 
0270: 
0280: 
0290: 
0300: 
0310: 
0320: 



0330: 
03^0: 
0350: 
0360: 
0370: 
0380 : 
0390: 
OJlOO: 
0410: 
0420: 
0430: 
0440: 
0450: 
0460: 
0470: 
0480: 
0490: 
0500: 
0510: 
0520: 
0530: 
0540: 
0550: 
0560 : 
0570: 
0580: 
0590: 
0600: 
0610: 
0620: 
0630: 
0640: 
0650: 



0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 
0170 

0100 



•^ 



0100 AO 00 
0102 B1 FA 
0104 85 F9 

0106 AO 00 
0108 A5 FB 
010A 20 lA 01 
OlOD A5 FA 
OlOF 20 lA 01 
0112 A5 F9 
0114 20 1A 01 
0117 4C 06 89 



011A 
OllB 

one 

011D 
011E 
011F 
0120 

0123 
0126 
0127 
0128 
012A 
012B 
012E 
0131 
0132 



48 

4A 

4A 

4A 

4A 

AA 

BD 29 8C 

99 40 A6 

C8 

68 

29 OF 

AA 

BD 29 8C 

99 40 A6 

C8 

60 



TRANSO • $0137 TRANSUTE TABLE LESS OFFSET $11 

PZSCR • $OOFC PAGE ZERO SCRATCH LOCATION 

POINTH • $00FB EXECUTE RAM POINTER HIGH 

POINTL • $00FA EXECUTE RAM POINTER LOW 

INH • $00F9 TERMINAL CHARACTER INPUT 

SYMPAD • $A400 OUTPUT PORT A ON 6532 

SYMPBD • $A402 OUTPUT PORT B ON 6532 

SYMDIS • $A640 DISPUY BUFFER 

SYMSCA • $8906 LED OUTPUT DISPLAY BUFFER 

SYMKEY • 18923 CHECK FOR ANY KEY DOWN 

SYMLRN • $892C DETERMINE KEY PRESSED 

SYMSEG • $8C29 LED SEGMENT CODES 

ORG $0100 OUT OF THE WAY ON STACK PAGE 



• SYM-1 VERSION OF KIM SCAND & 



SCANDS ROUTINES 
*t»«t«fftft«»*ft«tt 



SCAND LDYIM $0000 ENTER HERE TO GET BYTE 
LDAIY POINTL ADDRESSED BY POINTL 
STA INH AND MOVE IT TO INH AREA 

SCANDS LDYIM $0000 ENTER HERE IF INH ALREADY STORED 

LDA POINTH POINTH FIRST TO DISPLAY BUFFER 

JSR SPLITP 

LDA POINTL THEN DO POINTL 

JSR SPLITP 

LDA INH LAST BUT NOT LEAST DO INH 

JSR SPLITP 

JMP SYMSCA SET SYM MONITOR LIGHT 4 RETURN 



SPLITP PHA 
LSRA 
LSRA 
LSRA 
LSRA 
TAX 

LDAX SYMSEG 
STAY SYMDIS 
INY 
PLA 

ANDIM $000F 
TAX 

LDAX SYMSEG 
STAY SYMDIS 
INY 
RTS 



SAVE ORIGINAL 

ON STACK FOR UTER 

SHIFT HI HALF TO LO HALF 

WHICH IS 4 BITS DOWN 
PUT INTO X AS AN INDEX 
GET APPROPRIATE SEGMENT CODE 
AND PUT INTO DISPLAY BUFFER 
BUMP 'Y' FOR NEXT BYTE 
NOW GET ORIGINAL VALUE BACK 
KEEP ONLY LOW ORDER 4 BITS 
AND REPEAT SEGMENT PROCESS 



INCLUDING BUMP FOR NEXT BYTE 
AND RETURN 
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Writing to the displays Is, again, a little 
more difficult than changing a set of 
addresses. It is also sonaething that 
gets spread through the program, so ! 
can't write a nice software solution as 
I did for the other routines. Fortunately, 
you can usually perform the same func- 
tions on the SYM as on the KIM in either 
the same or a smaller number of bytes. 
Less is as good as the same, since one 
can always add NOP's to pad it out. 

The first problem is to set the data 
direction registers on the I/O ports to 
output to the displays. The normal code 
to look for in the KIM programs would be 
the following: 

LDAIM $7F 
STA $1741 

On the SYM we need to set the two 
direction registers at $A401 and $A403. 
In order to do this in the same number of 
bytes we can make use of the SYM moni- 
tor CONFIG routineas follows: 

LDAIM $09 
JSR $89A5 

This routine sets both I/O ports to out- 
put, and additionally stores zero in both 
I/O registers. 

Individual digit selection is also differ- 
ent between the two systems, but both 
use a multiplex concept. This means 
that one I/O register determines which 
segments get lighted, and one register 
determines which digit is selected. The 
KIM hardware selects the leftmost digit 
with a 9 stored into location $1742. This 
is incremented by two for each digit 
to the right. 

The SYM starts with a value of zero to 
location $A402. This needs to be in- 
creased by one for each digit to the right. 
You may be in for a little extra for those 
routines that increment and then check 
to see if they are done. Storing a 6 to 
location $A402 enables the onboard 
beeper, so if your routine suddenly 
starts beeping at you, don't be sur- 
prised. Tell everybody how great your 
sound effects are. 

The actual segment codes are written 
to location $1740 on the KIM and $A400 
on the SYM. These two addresses are 
one-for-one replacements. In order to 
convert routines that use these ports, 
change the address of the store instruc- 
tions to the display, and find the place 
where the digit selector is bumped 
twice to get to the next digit, then simply 
NOP the second bump. 

One final note about the timers. The 
KIM timer returns zero to a read before 
the clock has timed out, whereas the 
SYM returns the current clock count. 
This means that, in addition to changing 
the addresses, you will also have to 
change the branch after the check for 
clock expiration. 



0660; 
0670: 
0680: 
0690: 
0700: 
0710: 
0720: 
0730: 
07^0: 
0750: 
0760: 
0770; 
0780: 
0790: 
0800: 
0810: 
0920: 
0830: 
0840: 
0850: 
0860: 
0870: 
0880: 



0890: 
0900: 
0910: 
0920: 
0930: 
09^0: 
0950: 
0960: 
0970: 
0980: 
0990: 
1000: 



1010: 
1020: 
1030: 
1040: 
1050: 
1060: 
1070: 
1080: 
1090: 
1100: 
1110; 



• SYM-1 VERSION OF KIM GETKEY SUBROUTINE 



0133 20 2C 89 GETKEY JSR SYMLRN GET SYM VERSION OF THE KEY 



0136 DO 03 
0138 A9 15 
013A 60 
013B 8A 
013C C9 11 
013E 90 07 
OIUO C9 16 
0142 BO F4 
0144 BD 37 01 

0147 60 

0148 12 

0149 11 
014A 15 
014B 13 
014C 14 



BNE KEYDWN 
GKNONE LDAIM $0015 

RTS 
KEYDWN TXA 

CMPIM $0011 
BCC GKRTS 
CMPIM $0016 
BCS GKNONE 
LDAX TRANSO 
GKRTS RTS 



TRANST = 



$12 
$11 
$15 
$13 
$14 



BRANCH IF ANY KEY IS DOWN 

ELSE SET TO KIM NO KEY DOWN 

AND RETURN 

X HOLDS INDEX INTO ASCII TABLE 

NEED TO FUDGE KEY VALUE? 

OO-OF IS OK 10=AD(KIM)=CR(SYM) 

CHECK FOR OUT OF KIM RANGE 

AND TREAT AS A NO KEY 

ELSE TRANSLATE THROUGH TABLE 

AND RETURN 

'+'(KIM)='-/+»CsyM) 
•DA'CKIM)=*>/<'(SYM) 
SHIFT CSYM)=N0 KEY (KIM) 
•G»(KIM)='G0/LP'(SYM) 
•PC'(KIM)='REG/SP'(SYM) 



• SYM-1 VERSION OF KIM KEYIN SUBROUTINE 



014D 20 23 89 KEYIN JSR SYMKEY GET KEYBOARD STATUS 



0150 DO 03 
0152 A2 FF 

0154 60 

0155 A2 00 
0157 60 



0158 84 FC 
015A A8 
015B B9 29 8C 
01 5E 8E 02 A4 
0161 8D 00 A4 
0164 AO 10 
0166 88 



BNE KEYIN2 REVERSE ZERO FLAG 

LDXIM $OOFF KIM NOT ZERO - NO KEY - FF FOR LRNKEY 
RTS 
KEYIN2 LDXIM $0000 AND IS ZERO IF KEY IS DOWN 
RTS 



• SYM-1 VERSION OF KIM CONVD ROUTINES $1F48 & $1F4E 



CONVD STY PZSCR SAVE Y IN SCRATCH AREA 

TAY MOVE NIBBLE OF A TO INDEX REGISTER 
LDAY SYMSEG GET HEX SEGMENT CODES FROM TABLE 

DISPCH STX SYMPBD SELECT THE DIGIT 

STA SYMPAD OUTPUT THE SEGMENT CODES 
KEEP IT LIT FOR A WHILE 



LIGHT 



1120; 0167 DO FD 



LDYIM $0010 

DEY 

BNE LIGHT 



1130: 0169 8C 00 A4 
1140: 016C E8 
1150: 016D A4 FC 
1160: 016F 60 
ID= 



STY 
INX 
LDY 
RTS 



SYMPAD TURN ALL SEGMENTS OFF FOR NEXT ONE 

BUMP X TO NEXT DIGIT 
PZSCR RESTORE THE Y REGISTER 

AND RETURN 



-T 



SYMBOL TABLE 
CONVD 0158 
GKRTS 0147 
KEYINR 0155 
PZSCR OOFC 
SYMDIS A640 
SYMPBD A402 
TRANST 0148 



2000 2096 
DISPCH 015E 
INH 00P9 
LIGHT 0166 
SCAND 0100 
SYMKEY 8923 
SYMSCA 8906 



GETKEY 0133 
KEYDWN 013B 
POINTH OOFB 
SCANDS 0106 
SYMLRN 892C 
SYMSEG 8C29 



GKNONE 0138 
KEYIN 014D 
POINTL OOFA 
SPLITP Oil A 
SYMPAD A400 
TRAHSO 0137 
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BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 



# 



HUDSON DIGITAL ELECTRONICS INC. 



JUST THINK OF IT! 

YOUR KIM-1 — No longer limited to those long cassette saves and loads. 

YOUR KIM-1 — Backed up by 8K static ram so conservatively designed, 

well manufactured and thoroughly tested, HDE includes a 
no-nonsense, unconditional, 6 months parts and labor 
warranty. (Excluding misuse). 

YOUR KIM-1 — Transformed into one of the most powerful 6502 develop- 
ment systems available today. 



HDE, INC. supports the KIM-1 with 8" and 5" single and dual drive disk systems, proto- 
typing cards, card racks, desk top cabinets, motherboards, and the finest memory 
board available, anywhere, at any price. 

AND THIS IS JUST FOR STARTERS . . . 

Consider: A fast, 2 pass assembler; a complete line oriented editor; a comprehensive 
text output processing system; an efficient dynamic debugging tool; and, a memory 
diagnostic package so thorough it's the basis of our memory warranty. 

Plus, after the sale support that you've known you deserve, but just couldn't seem to 
get — until now. 

And, HDE products are KIM-1 , KIM-4 compatible. All boards include an oversized 5 
volt regulator and address selection switches, in a state-of-the-art 4.5" X 6.5" format, 
designed, manufactured, and tested for commercial/industrial application. 

HDE products — built to be used with confidence. 



AVAILABLE FROM THESE FINE DEALERS: 



JOHNSON COMPUTER PLAINSMAN MICROSYSTEMS ARESCO 

Box 523 Box 1712 P.O. Box 43 

Medina, Ohio 44256 Auburn, Ala. 36830 Audubon. Pa. 1 9407 

21 6-725-4560 800-633-8724 2 1 5-631-9052 



LONG ISLAND 
COMPUTER GENERAL STORE LONE STAR ELECTRONICS 
103 Atlantic Avenue Box 488 

Lynbrook, N.Y. 1 1 563 Manchaca, Texas 78652 

51 6-887-1 500 51 2-282-3570 
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AMPERSORT 



A fast, machine language sort utility for the APPLE II 
that handles integer, floating point and character rec- 
ords. Because it is callable from BASIC, this sort routine 
is a worthwhile addition to any software library. 



Alan G.Hill 
12092 Deerhorn Drive 
Cincinnati, OH 45240 



t 



A sort utility Is usually one of the first 
programs needed for records manage- 
ment application programs. If the utility 
is written in BASIC and runs under an 
interpreter, one quickly discovers that 
the sort is painfully slow on a micro. The 
sort program presented here, written in 
machine language for the APPLE II with 
Applesoft ROM, will certainly remedy 
that problem. While no speed records 
will be set, it will run circles around 
BASIC, sorting 900 integer, 700 floating 
point, or 300 30-character records in 
about 60 seconds. 

Speed is not the only beauty of AMPER- 
SORT. As its name implies, the BASIC- 
to-machine language interface utilizes 
the powerful, but not-widely-known, 
feature of Applesoft — the Ampersand. 
What is the Ampersand and why is it so 
useful? Consider the following example 
of how a BASIC program passes sort 
parameters to AMPER-SORT: 

100 &SRT#(AB$,0,10,7,10,A,1,5,D) 

This statement, when embedded in a 
BASIC program or entered as an imme- 
diate command, will command AMPER- 
SORT to sort AB$(0) through AB$(10) in 
ascending order based on the 7th to 10th 
characters and in descending order for 
the 1st through 5th characters. Of 
course, POKEs couid be used to pass 
parameters from other 6502 BASICS, 
but there's something more profes- 
sionally pleasing about the Ampersand 
interface. 

There is no user documentation from 
APPLE on the Ampersand feature. I first 
read of the feature in the October 1978 
issue of CALL APPLE. When the Apple- 
Soft interpreter encounters an amper- 
sand (&) character at the beginning of a 
BASIC statement, It does a JSR^3F5. If 
the user has placed a JMP instruction 
there, a link is made to the user's ma- 
chine language routine. APPLE has 
thoughtfully provided some ampersand 
handling routines described in the 
November and December issues of 
CALL APPLE. The routines enable your 
machine language routine to examine 
and convert the characters or expres- 
sions following the ampersand. The 
routines used in AMPER-SORT are: 



CHRGET($00B1) 

This routine will return, in the accumula- 
tor, the next character in the statement. 

The first character is in the accumulator 
when the JSR $3F5 occurs. The zero 
flag is set if the character is an end-of- 
line token (00) or statement terminator 
{$3A). The carry flag is set if the charac- 
ter is non-numeric, and cleared if it is 
numeric. The character pointer at $B8 
and $B9 is advanced automatically so 
that the next JSR $B1 will return the next 
character. A JSR $B7 will return a char- 
acter without advancing the pointer. 

FRMNUM($DD67) 

This routine evaluates an expression of 
variables and constants in the amper- 
sand statement from the current pointer 
to the next comma. The result is placed 
in the floating point accumulator. 

GETADR ($E752) 

This routine will convert the floating 
point accumulator to a two-byte integer 
and place It in $50 and $51. FRMNUM 
and GETADR are used by AMPER-SORT 
to retrieve the sort parameters and con- 
vert each to an unteger. 

GETBYT($E6F8) 

This routine will retrieve the next expres- 
sion and return it as a one-byte interger 
in the X-register. 

It is the user's responsibility to leave the 
$B8 and $B9 pointer at the terminator. 

Parameters are passed to AMPER-SORT 
in the following form: 

100 &SRT#(AB$,B,E,7,10,A,1,5,D) 

where: 

AB$ is the variable name of the string 
array to be sorted. The general 
form is XX$ for string arrays, 
XX % for integer arrays, and XX 
for floating point arrays. 

B is a variable, constant or expres- 
sion containing the value of the 
subscript element where the sort 
istobegin, e.g. AB$(B). 

E is a variable or constant or ex- 
pression containing the value of 
the subscript element where the 
sort is to end, e.g. AB$(E). B and 



E are useful when the AB$ array 
is partially filled or has been sec- 
tioned into logically separate 
blocks that need to be sorted 
independently. 

7 is a variable, constant or expres- 
sion specifying the beginning 
position of the major sort field. 

10 is a variable, constant or expres- 
sion specifying the ending posi- 
tion of the major sort field. 

A is a character specifying that the 
major sort field is to be sorted 
in ascending order. 

1 is a variable, constant or expres- 
sion specifying the beginning 
position of the first minor sort 
field. 

5. is a variable, constant or expres- 
sion specifying the ending posi- 
tion of the first minor sort field. 

D is a character specifying that the 
first minor sort field is to be 
sorted in descending order. 

The &SRT command will sort charac- 
ter, integer or floating point arrays and 
can be used in either the immediate or 
deferred execution mode similar to other 
Applesoft BASIC commands. Of course, 
the named array must have been pre- 
viously dimensioned and initialized in 
either case. 

A. Character Arrays 

1. Equal or unequal element 
lengths 

2. Some or all elements 

3. Ascending or descending 
order 

4. A major sort field and up to 4 
minor sort fields 

Examples: 

10 DIM NA$(500) 

100 &SRT#{NA$,0,500,1,5,A) 
200 &SRT#(N A$,0,500,1 ,5,A,6, 10, 
D,11,11,A) 

299 F%=0:L = 10 

300 &SRT = (NA$,F%,L,10.15,D) 

Line 100 sorts on positions 1 through 5 
in ascending order for all 501 elements 
of NA$(500). 
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Line 200 is the same as Line 100 except 
that minor sort fields are specified. The 
sort sequence on positions 1-5 is in 
ascending order, positions 6-10 are in 
descending order, and position 11 is 
ascending order. 

Line 299 and 300 sort on positions 10-15 
in descending order for NA$(0) through 
NA$(10). 
B. Integer and Floating Point Arrays 

1. Sonne or all elements 

2. Ascending order only. (Step 
through the array backwards if 
needed in descending order.) 

Examples: 

10 DIMAB%(100).FP(100) 

100 &SRT#(AB%,0,100) 

299 S = 50:E = 100 

300 &SRT#(AB%.S,E) 

399 X = 49 

400 &SRT#(FP,0,X) 

Line 100 sorts all 101 elements of 
AB%{100) in ascending order. Lines 299 
and 300 sort from AB%(50) through 
AB%(100), while lines 399 and 400 sort 
from FP{0) through FP(49). 

Limited editing has been included in the 
parameter processing code. Therefore, 
one must be careful to observe such 
rules as: 

1. 0<B<E< maximum number of AB$ 
elements. 

2. AB$ must be a scalar array, e.g. 
AB$(10), notAB$(20,40). 

3. The sort array name must be less 
than 16 characters only the first 
two count, and they must be 
unique. 

4. The maximum number of sort fields 
is 5. 

5. The beginning sort field position 
must not be greater than the ending 
sort field position. 

Options: 

1. Constants, variables, or ex- 
pressions may be used for sub- 
script bounds and sort positions. 

2. The &SRT command may be used 
in immediate or deferred execution 
mode. 

Some editing checks are made. You will 
notice this when you get a "7SYNTAX 
ERROR IN LINE XXX" error mes- 
sage. You will also get a "VARIABLE 
XXX NOT FOUND" message if the 
routine cannot find the AB$ variable 
name in variable space. 

The AMPER-SORT program is listed in 
its entirety. A BASIC demo program is 
also shown. Anyone desiring a cassette 
tape containing the latest version of the 
object code assembled at $5200, a copy 
assembled at $9200, and the source pro- 
gram text in the Microproducts APPLE II 
Assembler format may receive these by 
sending the author $5.00 at the above 
address. 



AMPER-SOHI Demo 



1000 


GOTO 10000 


1050 


REM CHARACTER SORT 


1060 


CH$ ' "ABCDUXYZ":L == LEN (CH$) - 1 


1070 


NZ = 8 


1080 


DIM AB$(N%) 


1090 


FOR I = TO N5: 


1100 


C$ = MII5$ (CH$f INT < RND (1) « L) + Ifl ) 


1110 


B$ = MID$ (CH$, INT < ti:ND (1) « L) + Irl) 


1120 


FOR J = 1 TO 3 


1130 


c$ = c$ + c$:b$ = B$ + B$ 


1140 


NEXT J 


1150 


AB$C I ) = B$ + C$ 


1160 


NEXT I 


1170 


GOSUB 1240 


1180 


REM SORT HALF ASCENDING 


1190 


REM SORT HALF DESCENDING 


1200 


& SRT*<AB$fOfN%flf8fAf9il6rD) 


1210 


GOSUB 1260 


1220 


GOTO 11000 


1230 


REM PRINT ROUTINE 


1240 


PRINT " BEFORE- 


1250 


GOTO 1270 


1260 


PRINT - AFTER-: PRINT "ASCEND DESCEND' 


1270 


FOR I = TO N% 


1280 


PRINT AB$(I): NEXT i: RETURN 


2000 


REM INTEGER SORT 


2010 


NZ = 8 


20 20 


DIM IN%(N%) 


2030 


FOR I = TO N% 


2040 


IN%(I) = 7500 - INT ( RND (1) * 15000) 


2050 


NEXT I 


2060 


GOSUB 2120 


2070 


REM SORT 


2080 


^ SRT*<INZfOfN%) 


2090 


GOSUB 2130 


2100 


GOTO 11000 


2110 


REM PRINT ROUTINE 


2120 


HTAB 10 : PRINT "BEFORE": GOTO 2140 


2130 


HTAB lO: PRINT -AFTER" 


2140 


FOR I = TO n:{ 


2150 


PRINT IN%M): NEXT i: RETURN 


3000 


REM FLOATING POINT 


3010 


TZ = 8 


3020 


DIM FP(T%) 


3030 


FOR I = TO 8 


3040 


FP(I) = 1000 * RND (1) * SIN (I * 7* 16) 


3050 


NEXT I 


3060 


GOSUB 3120 


3070 


REM SORT 


3080 


«. SRT»<FPfOfTZ) 


3090 


GOSUB 3130 


3100 


GOTO 11000 


3110 


REM PRINT ROUTINE 


3120 


HTAB 10 : PRINT "BEFORE*: GOTO 3t40 


3130 


HTAB 10 : PRINT "AFTER" 


3140 


FOR I = TO IX 


3150 


PRINT FP(I): NEXT i: RETURN 
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5200- 
5201- 
5204- 
5205- 
5207- 
520A- 
520C- 
520F- 
5210- 
5212- 
5214- 
5216- 
5218- 
52 IB- 
521D- 
521F- 
5222- 
5223- 
5225- 
5227- 
5229- 
522A- 
522D- 
522F- 
5231- 
5233- 



5235- 
5237- 
5239- 
523C- 
523F- 
5240- 
5242- 
5244- 
5246- 
*5248- 



48 

20 DE 54 
63 

A2 00 
DD 24 55 
DO 46 
20 Bl 00 
E3 

EO 05 
DO F3 
A2 00 
FO 03 
20 Bl 00 
C9 2C 
FO OA 
9D 6A 55 
E8 

EO 10 
DO Fl 
FO 29 
CA 

BD 6A 55 
C9 24 
FO 24 
C9 25 
DO IS 



A2 01 
A9 80 
ID 6A 55 
9D 6A 55 
CA 

10 F5 
A9 02 
85 EC 
A9 01 
DO 19 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 



* AMPER-SORT * 

* BY * 

* ALAN G» HILL * 

* APRILf 1979 * 

* COMMERCIAL RIGHTS * 

* RESERVED * 

NAPT ♦DL OODO 

NMSl •I'L 0OD4 

ASH ♦DL 00D6 

CSII *DL 00D3 

ASI2 ♦DL OODA 

CSI2 ♦DL OODC 

nil ♦DL CODE 

NNNN ♦DL OOEO 

FSTR ♦DL 0OE2 

FLEN tDL 00E7 

DISP ♦DL OOEC 

JJJJ •DL 00 ED 

LENI ♦DL OOEF 

LENJ ♦DL OOFO 

TYPE ♦DL OOFl 

Z250 ♦DL 0050 

ZZ6B ♦DL 006B 

CHRG ♦DL OOBl 

GETB ♦DL E6F3 

SNER ♦DL DEC9 

FRNM ♦DL DD67 

GETA ♦DL E752 

MPLY ♦DL FB63 

COUT ♦DL FDED 
•OR 5200 



: PROCESS '&' 

SORT PHA 

JSR SVZP 
PLA 
LDX 00 

SROl CMP SRTSfX 
BNE ERRX 
JSR CHRG 
INX 

CPX 05 
BNE SROl 
LDX 00 
BEQ VNAM 

SR04 JSR CHRG 

VNAM CMP ' f 

BEQ SR05 
STA NAMEfX 
INX 

CPX 10 
BNE SR04 
BEQ ERRX 

SR05 DEX 

LDA HMEfX 
CMP '* 
BED CHAR 
CMP '% 
BNE FPOO 

♦ 

: INTEGER SORT 

INTE LDX 01 

INTl LDA 30 

ORA NAMEfX 
STA NAMEfX 
DEX 

BPL INTl 
*LDA 02 
STA »DISP 
LLA 01 
BNE SR06 



ENTER WITH PIEST CHAR 

SAVE A WOHZ AREA lU ZERO PAGE 



EDIT POR • SRT#( ' 
SIGNAL 'SYNTAX ERROR' 
GET NEXT CHARACTER 



OK SO EAR 

GET ANOTHER CHARACTER 
lOOP TO GET ARRAY NAME 

SAVE NAKE 

16 CHARACTERS IS LONG 
ENOUGH FOR A NAME 
SIGNAL ERROR 

WHAT TYPE 

CHARACTER 

FLOATING POINT 

INTEGER 
HBG. ASCII 



INITIALIZE DISPLACEMENT 
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0750 


t F*i 


P* S( 


DRT 




524A- 


A9 05 


0760 


FPOO 


LDA 


05 




524C- 


85 EC 


0770 




STA 


*DISP 




524E- 


A9 02 


0780 




LDA 


02 




5250- 


DO 11 


0790 
0800 


• 


BNE 


SR06 




5252- 


AC A5 52 


0810 
0820 


ERRX 

• 
• 


JMP 


ERRO 








0830 


I CHARACTER SORT 




5255- 


A9 80 


0840 


CHAR 


LDA 


80 




5257- 


OD 6B 55 


0850 




ORA 


NAME+01 


NEG. ASCII 


525A- 


8D 6B 55 


0860 




STA 


NAME+Ol 




525D- 


A9 03 


0870 




LDA 


03 




525F- 


85 EC 


0880 




STA 


*DISP 




52A1- 


A9 00 


0890 
0900 


» 


LDA 


00 








0910 


: %% 


SET UP SORT LIMITS ** 


5263- 


35 Fl 


0920 


SR06 


STA 


*TYPE 


0=CH 1=ITrr 2=PP 


5265- 


20 Bl 00 


0930 




JSR 


CHRG 


NOW GET SUBSCRIPTS 


5268- 


20 67 DD 


0940 




JSR 


FRNM 


Am) PUT IN p.p. ACC, 


526B- 


20 52 E7 


0950 




JSR 


GETA 


COJaVi;RT TO INTEGER 


526E- 


A5 50 


0960 




LDA 


*Z250 




5270- 


85 DE 


0970 




STA 


*IIII 


PTHST SUBSCRIPT 


5272- 


A5 51 


0980 




LDA 


*ZZ50+01 




5274- 


85 DF 


0990 




STA 


*IIII+01 




5276- 


20 Bl 00 


1000 




JSR 


CHRG 




5279- 


20 67 BD 


1010 




JSR 


FRNM 




527C- 


20 52 E7 


1020 




JSR 


GETA 




527F- 


A5 50 


1030 




LDA 


«Z250 




5281- 


85 D4 


1040 




STA 


*NMS1 


LAST SUBSCRIPT INTO 


5283- 


18 


1050 




CLC 






5284- 


69 01 


1060 




ADC 


01 




5286- 


85 EO 


1070 




STA 


*NNNN 


N 


5283- 


A5 51 


1080 




LDA 


*2250+01 




528A- 


85 ns 


1090 




STA 


*NMS1+01 




528G- 


69 00 


1100 




ADC 


00 




528E- 


85 El 


1110 




STA 


*NNNN+01 




5290- 


A5 Fl 


1120 




LDA 


*TYPE 




5292- 


DO 59 


1130 




BNE 


TERM 


BRANCH NOT CHARACTEI 


.5294- 


FO 15 


1140 
1150 


♦ 
• 


BEO 


SR16 








1160 


: *** ERROR *** 




5296- 


A2 00 


1170 


ERR3 


LDX 


00 




5298- 


BD 29 55 


1180 


SRll 


LDA 


MSGlrX 


ARRAY VARIABLE NAME 


529B- 


09 80 


1190 




ORA 


80 


NOT FOUND 


529D- 


20 ED FD 


1200 




JSR 


COUT 


NOTIPy USSR 


52A0- 


ES 


1210 




INX 






52A1- 


EO 17 


1220 




CPX 


17 




52A3- 


DO F3 


1230 




BNE 


SRll 




52A5- 


20 01 55 


1240 


ERRO 


JSR 


RSZP 


RESTORE ZERO PAGE A] 


52A8- 


4C C9 DE 


1250 
1260 


• 


JHP 


SNER 


SIGNAL SYNTAX ERROR 






1270 


: «« 


GET SORT FIELDS 


«« 


52AB- 


AO 00 


1280 


SR16 


LDY 


00 




52AD- 


8C 81 55 


1290 




STY 


SAVY 




52B0- 


20 Bl 00 


1300 


SR17 


JSR 


CHRG 


GET NEIT CHARACTER 


52B3- 


20 F8 E6 


1310 




JSR 


GETB 




52B6- 


CA 


1320 




DEX 






52B7- 


AC 81 55 


1330 




LDY 


SAVY 




52BA- 


96 E2 


1340 




STX- 


*FSTRfY 


START COLUMN -1 


52BC- 


20 Bl 00 


1350 




JSR 


CHRG 




52BF- 


20 F3 E6 


1360 




JSf: 


GETB 




52C2- 


AC 81 55 


1370 




LDY 


SAVY 




52C5- 


96 E7 


1380 




STX 


*FLENfY 


END COLUMN 


52C7- 


20 Bl OO 


1390 




JSR 


CHRG 




52CA- 


90 D9 


1400 




BCC 


ERRO 


SHOULD BE ^A' OR 'D 


52CC- 


C9 44 


1410 




CMP 


'D 




52CE- 


FO 04 


1420 




BEQ 


SR07 


DESCENDING 


52D0- 


A9 FF 


1430 




LDA 


OFF 


ASCENDING 


52D2- 


30 02 


1440 




BHI 


SR09 




52D4- 


A9 00 


1450 


SR07 


LDA 


00 




52D6- 


99 7A 55 


1460 


SR09 


STA 


UPDNfY 


SAVE SEQUENCE 


52D9- 


C8 


1470 




INY 







# 
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52DA- 
52DD- 
52E0- 
52E2- 
52E4- 
52E6- 
52E8- 
52EA- 
52ED- 
52F0- 



52F2- 
52F4- 
52F6- 
52F9- 
52FB- 
52FC- 
52FE- 
5301- 
5303- 
5304- 
5306- 
5308- 
530A- 
530B- 
530C- 
530E- 
5310- 
5312- 
5313- 
5315- 
5317- 
5319- 
531B- 
531D- 



8C 81 55 
20 Bl 00 
C9 29 
FO 06 
C9 2C 
FO C8 
DO BB 
8C 80 55 
20 Bl 00 
DO B3 



AO 00 

Bl 6B 

CD 6A 

DO 08 
C8 

Bl 66 

CD 6B 

FO 2B 
18 

AO 02 

Bl 6B 

65 6B 
48 
C8 

Bl 6B 

65 6C 

85 6C 
68 

85 6B 

C5 6D 

A5 6C 

E5 6E 

BO 03 

4C F2 



52 



1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 



STY 
JSR 
ChP 

BEQ 
CMP 
BEG 
BNE 
LAST STY 
TERh JSR 
BNE 

t SEARCH 
HC20 LDY 
LDA 
ChP 
BNE 
INY 
LDA 
CHP 
BEQ 
MC22 CLC 
LDY 
LDA 
ADC 
PHA 
INY 
LDA 
ADC 
STA 
PLA 
STA 
CMP 
LDA 
SBC 
BCS 
JMP 



SAVY 

CHRG 

' ) 

LAST 

' f 

SR17 

ERRO 

PRSN 

CHRG 

ERRO 



LOOP POH NEXT SORT PIELD PAEI^ 

NO. OP SORT PIELDS 
MUST BE TEEMIUAIOR 
IT WASN'T 



SORT ARRAY NAME 

00 

(2Z6B)fY 

NAME 

MC22 



(ZZ6B)fY 

NAHE+01 

SETN 

02 

(ZZ6B)fY 

*ZZ6B 



(ZZ6B)fY 

*ZZ6B+01 
*ZZ6B+01 

*ZZ6B 

«6D 

*ZZ6B+01 

%6£ 

SR27 

MC20 



POUBD PIRST CHARACTER 



POUro BOTH 
KEEP LOOKING 



NO LUCK. OUT OP BOUNDS 



1840 : 

1850 : ** NAME NOT FOUND *# 

5320- A2 02 1860 SR27 LDX 02 

5322- BD 6A 55 1870 SR28 LDA NAMEfX 

5325- 9D 33 55 1880 STA VARIrX 

5328- CA 1890 DEX 

5329- 10 F7 1900 BPL SR28 
532B- 4C 96 52 1910 JMP ERR3 



PUT NAME IN BUPPER 



SEND A MESSAGE 



532E- 
532F- 
5331- 
5333- 
5335- 
5337- 
5339- 
533B- 
533D- 
533F- 
5341- 
5343- 
5345- 
5347- 
5349- 
534B- 
534E- 
5350- 
5352- 
5354- 
5356- 



18 

A5 6B 
69 07 
85 52 
A5 6C 
69 00 



85 
A5 

85 



35 
AS 



53 
DE 
50 



A5 DF 



51 
EC 
54 



A9 00 
8 



20 
A5 50 



63 FB 



85 
A5 



06 
51 



85 D7 
4C 66 



1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 



* INITIALIZE ARRAY POINTER * 



SETN CLC 

LDA *ZZ6B 
ADC 07 
STA $52 
LDA *ZZ6B+01 
ADC 00 
STA *53 
LDA *IIII 
STA *ZZ50 
LDA «IIII+01 
STA *ZZ50+01 
LDA «DISP 
STA $54 
LDA 00 
STA $55 
JSR MPLY 
LDA *ZZ50 
STA *ASII 
LDA *ZZ50+01 
STA *ASIH-01 
JMP SR22 



POUND VARIABLE NAME OP 
ARRAY TO BE SORTED- 
COMPUTE ADDRESS OP 
STRING LENGTH BYTE. 



(6B*6C)+7+DISP*IIII 



ROM MULTIPLY ROUTINE 
SAVE ADDRESS POR MUCH USB 
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5359- 
535A- 
535C- 
535E- 
5360- 
5362- 
5364- 
5366- 
5368- 
536A- 
536C- 
536D- 
536F- 
5371- 
5372- 
5374- 
5376- 
5378- 
537A- 
537C- 
537E- 
537F- 
5381- 
5383- 
5335- 
5387- 
5389- 
538B- 



538E- 
533F- 
5391- 
5393- 
5395- 
5397- 
5399- 
539B- 
539D- 
539F- 
53A1- 
53A2- 
53A4- 
53A6- 
53 A 8- 
53AA- 



53AD- 
53AF- 
53B1- 
53B3- 
53B5- 
53B7- 
53B9- 
53BB- 
53BD- 
53BF- 
53C2- 
53C4- 
53C6- 
53C8- 
53CA- 
53CD- 
53D0- 
53152- 
53D4- 
53D6- 
53D8- 
53nB- 



18 

A5 D6 
65 EC 
85 D6 
A5 D7 
69 00 
35 D7 
AO 01 
Bl D6 
85 rrS 
C8 

Bl D6 
85 D9 
18 

A5 Ii6 
65 EC 
35 DA 
A5 D7 
69 00 
85 DB 
18 

A5 DE 
69 01 
85 ED 
A5 DF 
69 00 
85 EE 
4C 9B 



18 

A5 DA 
65 EC 
85 DA 
A5 DB 
69 00 
85 DB 
AO 01 
Bl DA 
85 DC 
C8 

Bl DA 
85 DD 
A5 Fl 
FO 03 
4C 2F 54 



AO 00 
61 D6 
FO 52 
85 EF 
Bl DA 
FO 4C 
85 FO 
A2 00 
B4 E2 
BD 7A 55 
30 OC 
Bl D8 
Dl DC 
BO 14 
20 B9 54 
4C 05 54 
Bl D8 
Dl DC 
90 2F 
FO 19 

B9 

0^ 



20 
4C 



54 
54 



2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
280 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 



**** BEGIN SORT **** 



** FOR 
CONI CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
SR22 LDY 
LDA 
STA 
INY 
LDA 
STA 
CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
CLC 
LDA 
ADC 
STA 
LHA 
ADC 
STA 
JMP 



I=II TO N-1 LOOP ** 



«ASII 

#DISP 

*ASII 

*ASII+01 

00 

*ASII+01 

01 

(ASH )fY 

*CSII 

(ASH )fY 
*CSII+01 

*ASII 

*DISP 

*A5I2 

*ASII+01 

00 

*ASI2+01 

*IIII 

01 

*JJJJ 

*IIII+01 

00 

*JJJ.J+01 

SR24 



# 



HEXT I iHI^RESS 



GET ADDRESS OP THE 
CHAHACTER STRING 



Also NEED ADDRESS OP 
ADJACENT ELEMENT POR 
BUBBLE SORT COiyiPARISON 



: «« FOR J=I+1 
CONJ CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 
SR24 LDY 

LDA 

STA 

INY 

LDA 

STA 

LDA 

BEQ 

JHP 



TO 



*ASI2 

*DISP 

*ASI2 

*ASI2+01 

00 

*ASI2+01 

01 

( ASI2)fY 

*CSI2 

( ASI2)fY 

*CSI2+01 

*TYPE 

CHST 

NCHH 



J=I+1 

N LOOP ** 
INCREMENT ABJ(J) ADDRESS 



# 



GET NEW STRING ADDRESS 



CHARACTER SORT 



: *♦ CHARACTER 

CHST LDY 00 

LDA (ASH ) 
BEQ MC40 
STA *LENI 
LDA (ASI2) 
BEQ MC40 
STA *LENJ 
LDX 00 

SR29 LDY *FSTRt 

MC33 LDA UPDNfX 
BHI ASND 
LDA (CSII ) 
CMP (CSI2) 
BCE MC26 
JSR SWAP 
JMP MC40 

ASND LDA (CSII ) 
CMP (CSI2) 
BLT MC40 
BEQ MC27 

MC25 JSR SWAP 
JMP MC40 



SORT ** 

fY 



STRING LENGTH 
NULL STRING: SKIP 
SAVE LEN(AB3(I)) 



SAVE LEN(AB3(J)) 

STARTING SORT COLUMN 

SEQUENCE 

BRANCH ASCENDING 

CHARACTER BY CHARACTER 

COMPARISON POR DESCENDING 

POSSIBLE SWAP 

DEPINITE SWAP 

NEXT RECORD 
ASCENDING 

NO SWAP: 3EIT RECORD 

POSSIBLE SWAP 

SWAP 

NEIT RECORD 



• 
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# 



53DE- 
53E0- 
53E1- 
53E3- 
53E5- 
53E7- 
53E9- 
53EB- 
53ED- 
53EF- 
53F1- 
53F2- 

53F4- 
53FA- 
53F8- 
53FA- 
53FB- 
53FD- 
53FF- 
5400- 
S403- 



5405- 
5407- 
5409- 
540B- 
540D- 
540F- 
5411- 
5413- 



5415- 
5417- 
5419- 
54 1 B- 
54 ID- 
541F- 
5421- 
5423- 



5425- 
5428- 
5429- 
542C- 
542F- 
5430- 
543X- 
5433- 



5436- 
5438- 
543A- 
543C- 
543D- 
543F- 
5441- 
5443- 
5445- 
5447- 



5449- 
544A- 
544C- 
544D- 
544E- 
5450- 
5451- 



DO 25 
C8 

C4 EF 
FO 06 
C4 FO 
FO 16 
90 OF 
C4 FO 
90 E9 
FO OE 
C8 
C4 EF 

FO 09 

C4 FO 

FO DE 

98 

D5 E7 

DO CO 

E3 

EC 80 55 

DO B8 



E6 ED 
DO 02 
E6 EE 
A5 ED 
C5 EO 
AS EE 
E5 El 
90 14 



E6 DE 
DO 02 
E6 DF 
A5 DE 
C5 D4 
A5 DF 
E5 D5 
90 07 



20 01 55 
60 

4C 8E 53 

4C 59 53 

18 

6A 

BO 03 

4C 6D 54 



AO 01 

Bl D6 
Dl DA 
88 

Bl D6 
Fl DA 
90 22 
Bl D6 
51 DA 
30 BC 



C8 

Bl DA 
48 
88 

Bl DA 
48 
Bl D6 



2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 



MC26 



MC39 



MC27 



MC28 



MC29 



BNE 
INY 
GPY 
BEQ 
CPY 
BEQ 
BLT 
CPY 
BLT 
BEQ 
INY 
CPY 
BEQ 
CPY 
BEQ 
TYA 
CMP 
BNE 
INX 
CPX 
BNE 



MC40 

*LENI 

MC39 

*LENJ 

MC29 

MC28 

*LENJ 

MC25 

MC29 

*LENI 
MC29 
*LENJ 
MC25 

*FLENfX 
MC33 

PRSN 
SR29 



: ** NEXT J ** 
MC40 INC *.J.J.JJ 
BNE rtC33 
INC *JJ.JJ+01 
MC38 LDA *J.JJJ 
CMP *NNNN 
LDA #JJJJ+01 
SBC *NNNN+01 
BCC JMPJ 

: ** NEXT I ** 
INC *IIII 
BNE MC41 
INC *IIII+01 

MC41 LDA *IIII 
CMP *NMS1 
LDA *IIII+01 
SBC *NMS1+01 

BCC JMPI 

f 

: **** SORT DONE 
SDON JSR RSZP 

RTS 
JMPJ JMP CONJ 
JMPI JMP CON I 
NCHH CLC 

ROR 

BCS INTC 

JMP FPCC 



INTC 



INTEGER 
LDY 01 



LDA 
CMP 
DEY 
LDA 
SBC 
BCC 
LDA 
EOR 
BMI 



(ASH )fY 
( ASI2)fY 

(ASH )fY 
< ASI2 )fY 
NOSP 

< ASH )fY 

< ASI2)fY 
MC40 



: ** SWAP I WITH 
SUIN INY 

LDA (ASI2)fY 

PHA 

DEY 

LDA (ASI2)fY 

PHA 

LDA (ASII)»Y 



NO SWAP 

LOOK AT REMAINING CHARACTERS 

IIP TO TEE LIMITS OR UNTIL 

W-E EINI3 A REASON TO SWAP 



SWAP 

NO SWAP 



END OP SORT FIELD? 
BRANCH NO 

YES. ANT MORE FIELDS? 



J=J+1 
J=N? 

BRAITCH NO 



1=1+1 
I=N-1 ? 



BRANCH NO 

**** 

RESTORE ZERO PAGE 



NOT A CHARACTER SORT SO 
IT MUST BE INTEGER OR P-P. 
IT'S INTEGER 
IT'S FLOATING POINT 



SORT ** 



ASCENDING ORDER ONLY 
COMPARE IN^(I) WITH IN^(J) 

POSSIBLE SWAP 



J ** 



SWAP IN?b(I) WITH IN9^(J) 
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5453- 


91 DA 


5455- 


C8 


5456- 


Bl D6 


5458- 


91 DA 


545A- 


88 


545B- 


68 


545C- 


91 D6 


545E- 


C8 


545F- 


68 


5460- 


91 D6 


5462- 


4C 05 


5465- 


Bl D6 


5467- 


51 DA 


5469- 


30 DE 


546B- 


10 98 


546D- 


AO 00 


546F- 


38 


5470- 


Bl D6 


5472- 


Fl DA 


5474- 


FO 04 


5476- 


10 IF 


5478- 


30 07 


547A- 


CS 


547B- 


CO 05 


547D- 


DO FO 


547F- 


FO 3E 


5481- 


AO 01 


5433- 


Bl D6 


5485- 


31 DA 


5487- 


11 DA 


5489- 


30 20 


548B- 


88 


548C- 


Bl DA 


548E- 


DO 2F 


5490- 


C8 


5491- 


Bl D6 


5493- 


10 16 


5495- 


30 28 


5497- 


AO 01 


5499- 


Bl D6 


549B- 


31 DA 


549D- 


11 D6 


549F- 


30 IE 


54A1- 


88 


54A2- 


Bl D6 


54A4- 


DO 05 


54A6- 


C8 


54A7- 


Bl DA 


54A9- 


10 14 


54AB- 


AO 04 


54AD- 


Bl D6 


54AF- 


48 


54B0- 


88 


54B1- 


10 FA 


54Bo- 


C8 


54B4- 


Bl DA 


54B6- 


91 D6 


.54B8- 


68 


54B9- 


91 DA 


54BB- 


CO 04 


54BD- 


DO F4 


54BF- 


4C 05 


54C2- 


AO 00 


54C4- 


Bl D6 


54C6- 


48 


54C7- 


C8 


54C8- 


A5 D8 


54CA- 


91 DA 


54CC- 


08 


54CD- 


A5 D9 


54CF- 


91 DA 



3610 STA <ASI2)fY 

3620 INY 

3630 LDA (ASIDfY 

3640 STA <ASI2)fY 

3650 DEY 

3660 PLA 

3670 STA <ASII)fY 

3680 INY 

3690 PLA 

3700 STA (ASII)fY 

3710 JMP MC40 

3720 NOSP LDA CASIDfY 

3730 EOR <ASI2)fY 

3740 BMI SWIN 

3750 BPL HC40 

3760 : 

3770 : ** FLOATING POINT 

3780 FPCC LDY 00 

3790 FPOl SEC 

3800 LDA (ASH )fY 

3810 SBC (ASI2)fY 

3820 BEQ FP02 

3830 BPL FPSP 

3840 BMI MBSP 

3850 FP02 INY 

3860 CPY 05 

3870 BNE FPOl 

3880 BEQ JM40 

3890 HBSP LDY 01 

3900 LDA (ASH )fY 

3910 AND <ASI2)yY 

3920 ORA <ASI2)rY 

3930 BMI FP03 

3940 DEY 

3941 LDA <ASI2)fY 

3942 BNE JM40 

3943 INY 

3944 LDA (ASII)fY 

3945 BPL FP03 

3946 BMI JM40 
3950 FPSP LDY 01 

3960 LDA (ASII)fY 

3970 AND <ASI2)fY 

3980 ORA (ASII)fY 

3990 BMI JM40 

4000 DEY 

4010 LDA (ASII)fY 

4020 BNE FP03 

4030 INY 

4040 LDA (ASI2)fY 

4050 BPL JM40 

4060 FP03 LDY 04 

4070 FP04 LDA (ASII)fY 

4080 PHA 

4090 DEY 

4100 BPL FP04 

4110 FP08 INY 

4120 LDA (ASI2)fY 

4130 STA (ASIDfY 

4140 PLA 

4150 STA (ASI2)fY 

4160 CPY 04 

4170 BNE FP08 

4180 JM40 JMP MC40 

4190 SUAP LDY 00 

4200 LDA (ASII)fY 

4210 PHA 

4220 INY 

4230 LDA *CSII 

4240 STA (ASI2)fY 

4250 INY 

4260 LDA *CSII+01 

4270 STA (ASI2)fY 



# 



JTEIT RECORD 
SWAP 
SORT ** 



THIS BIT OI* COWOLUTED 
LOGIC TELLS MS IP 
IT(I) IS &RBATER THM, 
EQUAL TO, OR LESS TEM 

yp(j). 

A TRUTH TABLE HELPS 



SAVE PP(I) IN STACK 



SWAP 



BEIT RECORD 

ROUTIITE TO SWAP THE 
CHARACTER POINTERS FOR 
CHARACTER SORT* 



• 
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POUVERSOFT, INC. 

P. O. BOX 157 

PITMAN, NEW JERSEY 08071 

(609) 589-5500 



products for the 

APPLE n 



ADDRESS FILE GENERATOR $19.95 

A professional piece of software which allows the user to create four different types of address files: a) Holiday File, b) Birthday File, 
c) Home Address File, and d) Commercial Address FMe. The program contains a menu of seven major commands: 1 ) Create a File, 2) Add to File, 
3) Edit File, 4) Display File, 5) Search File, 6) Sort File, and 7) Reorganize File. Most of the major commands have subordinate commands which 
adds to the flexabtltty of this powerful software system. We doubt you could buy a better program for maintaining and printing address files. 
REQUIREMENTS: Disk 11, Apple Printer Card, 32K of memory with Applesoft Rom Card or 48K of memory without Applesoft Rom Card. 



SUPER CHECKBOOK 



$19.95 



A totally new checkbook program with a unique option . . . Bar Graphs. These bar graphs, outputed to a printer or video screen, provide 
trend analysis data on code expense, income, expenses, or gain/loss on a month by month basis. The program contains a total of fourteen options: 
1 ) Check/Deposit Entry & Modification, 2) Reconciliation of Checks or Deposits, 3} Sort by Check Number, 4) Sort by Code for Year, 5) Sort by 
Code for Month, 6) Output Year to Date, 1) Output Month Activity, 8-11) Printer/Video Plot Trend Analysis-Bar Graphs, 12) Account Status, • 
13) Reconciled Check Status, and 14} Quit. An excellent program for maintaining your checkbook, or that of a small business. REQUIREMENTS: 
Disk II, 32K of memory with Applesoft Rom Card or 48K of memory without Applesoft Rom Card. 

FUNCTION GRAPHS AND TRANSFORMATIONS $14.95 

This program uses the Apple II high resolution graphics capabilities to draw detailed graphs 
of mathematical functions which the user defines in Basic syntax. The graphs appear in a large 
rectangle whose edges are X and Y scales (with values labeled by up to 6 digits). Graphs can be 
superimposed, erased, drawn as dashed (rather than solid) curves, and transformed. The trans- 
formations available are reflection about an axis, stretching or compressing (change of scale), 
and sliding (translation). The user can alternate between the graphic display and a text display 
which lists the available commands and the more recent interactions between user and program. 
Expected users are engineers, mathematicians, and researchers in the natural and social sciences; 
in addition, teachers and students can use the program to approach topics in (for example) 
algebra, trigonometry, and analytic geometry in a visual, intuitive, and experimental way which 
complements the traditional, primarily symbolic orientation. REQUIREMENTS: 16K of 
memory with Applesoft Rom Card or 32K of memory without Applesoft Rom Card. -4 866 -t eee 66 686 t 6666 4 6666 





\--fJ 


....I....I.... 


, L.„i^ 



GAMES 

Apple Casino $ 9.95 

Apple Derby 9.95 

Apple II Organ 19.95 

Cubik 9.95 

Radar Interceptor 9,95 

Rocket Pilot 9.95 

Saucer Invasion 9.95 

Space Maze 9.95 

Star War 9.95 

Swarms 14.95 

Wampus Hunt 9.95 

SYSTEMS SOFTWARE 

Memory Dump $ 7.45 

Program Unload 7.45 

File-Editor 24.95 

Assembler 24.95 

(File Editor required for 
use with Assembler) 



APPLICATIONS 

Automotive Diagnosis $14.95 

Basic Statistics 9.95 

Electrical Engineering I 9.95 

Statistics I 14.95 

Vector Analysis 9.95 

FINANCIAL 

Financral Wizard , $ 9.95 

Financial Wizard II 9.95 

Financial Wizard III 9.95 

Financial Wizard IV 9.95 

(Programs recorded on cassette 
tape. Documentation included.) 



HARDWARE 

Light Pen $34.95 

(Includes Demo-Software) 






a. 
0-, 



P /> 



#- 



</ d 






Call or write for our free SOFTWARE & ACCESSOR I^S.C A TALOG 



Apple It is a registered 
trademark of Apple Computer, 



DEALER INQUIRIES INVITED 



M^aHVEnSOFT^ INC. 

p. O. BOX 157 

PITMAN, NEW JERSEY 08071 

(609) 589-5500 



• Master Charge and VISA 
orders accepted. 

• Include $1 .00 for 
shipping and handling. 

• New Jersey residents add 
5% sales Tax. 

(Prices subject to change J 



54D1- 

54D3- 

54D5- 

54D7- 

54D8- 

54DA- 

54DC- 

54DE- 

54DF- 

54E1- 

54E3- 

54E4- 

54E6- 

54E7- 

54E9- 

54EB- 

54EE- 

54EF- 

54F1- 

54F3- 

54F5- 

54F8- 

54FA- 

54FD- 

54FF- 

5501- 

5504- 

5505- 

5507- 

5509- 

550A- 

550C- 

550F- 

5511- 

5512- 

5514- 

5516- 

5519- 

551B- 

551E- 

5520- 

5522- 

5525- 

5527- 

5523- 

552A- 

552C- 



552D 
5530' 
5532- 
5533- 
5537 
5538 
553B 
55 3E 
5540 
5542 
5546 
5548 



A5 Dti 
91 D6 
85 D9 
88 

A5 DC 
91 D6 
85 D8 
88 

Bl BA 
91 D6 
6Q 

91 DA 
60 



a: 

B5 



A2 00 
B5 DO 
9D 49 55 
E3 

EO 22 
DO F6 
A5 6B 
8D 71 55 
A5 6C 
8D 72 55 

00 

50 

9D 6B 55 
E8 

EO 06 
DO F6 
60 

A2 00 
BD 49 55 
95 DO 
E8 

EO 22 
DO F6 
AD 71 55 
35 6B 
AD 7: 
85 6C 
A2 00 
BD 6B 
95 50 
E3 

EO 06 
DO F6 
60 



55 



53 


52 


54 


23 


28 




8D 






56 


41 


52 


41 






42 


4C 


45 


20 


20 


20 


20 


20 




4E 


4F 




54 


20 


46 


55 


4E 





49 



- 44 



4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 
4760 
4770 
4730 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 



LDA 

STA 

STA 

DEY 

LDA 

STA 

STA 

DEY 

LDA 

STA 

PLA 

STA 

RTS 

SVZP LDX 

MC51 LDA 

STA 

IHX 

CPX 

BNE 

LDA 

STA 

LDA 

STA 

LDX 

MC55 LDA 

STA 

IHX 

CPX 

BNE 

RTS 

RSZP LDX 

MC61 LDA 

STA 

IHX 

CPX 

BNE 

LDA 

STA 

LDA 

STA 

LDX 

MC65 LDA 

STA 

INX 

CPX 

BNE 

RTS 



»CSI2+01 
(ASII)fY 

*csri+oi 

«CSI2 
(ASH )»Y 
*CSII 

(ASI2)fY 
(ASIDfY 

(ASI2)fY 

00 

*NAPTfX 

ZPSVfX 

22 

MC51 

«ZZ6B 

SV6B 

*ZZ6B+01 

sv;6B+oi 

00 

*ZZ50fX 

SVSOfX 

06 
MC55 

00 

ZPSVfX 

♦NAPTfX 



HC61 

SU6B 

*ZZ6B 

SV6B+01 

*ZZ6B+01 

00 

SVSOfX 

*ZZ50fX 

06 
MC65 



• 



SAVE SOME OP APPIESOPT'S 
ZERO PAGE. SORT ROUTIHE 
HEELS SOME ROOM TO WORK. 



AI.SO $6B.6C 



ALSO J50.55 



RESTORE ZERO PAGE LATA 



SRTS ♦AS 'SRT*<' 
HSGl •HS 8D 

•AS 'VARIABLE ' 
VARI ♦HS 202020 

•AS ' NOT FOUND' 
ZPSV ♦HS 0000000000000000 

•HS 0000000000000000 

*HS 0000000000000000 

.HS 0000000000000000 

.HS 0000 
SV50 ♦HS 000000000000 
SV6B ♦HS 0000 
NAME ♦HS 0000000000000000 

•HS 0000000000000000 
UPDN .HS 0000000000 
INDS .HS 00 
PRSN .HS 00 
SAVY .HS 00 

♦ EN 
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10000 REM ** &SORT DEMO ** 

10010 REM SAVE ROOH FOR 

10020 REM SORT ROUTINE 

10030 HIMEM: 20992: REM $5200 

10040 D$ = CHR$ (4) 

10050 PRINT D$f-BLOAD B»AMPER-SCRT" 

10060 REM SET UP '&' HOOK 

10070 REM AT $3F5;JMP $5200 

10080 POKE 10i3f76: POKE 1014f0: POKE 1015^82 

10090 HOME : CLEAR 

lOlOO ^^TAB 8: HTAB 15: PRINT "SORT DEMO" 

10110 PRINT : HTAB 15: PRINT "SELECTIONS" 

10120 PRINT : HTAB 10 : PRINT "1 INTEGER SORT" 

10130 HTAB 10 : PRINT "2 FLOATING POINT SORT" 

10140 HTAB 10 : PRINT "3 CHARACTER SORT" 

10150 HTAB lO: PRINT "4 EXIT" 

10160 VTAB 17: INPUT "SELECTION "JSEri 

10170 IF SEZ < OR SEZ > 4 THEN 10090 

10180 ON SEZ GOTO 2000^3000,1050,10190 

10190 END 

11000 PRINT "HIT ANY KEY TO RETURN TO MENU" 

11010 WAIT - 16384^128 

11020 POKE - 16368.0 

11030 GOTO 10090 



J RUN 



• 



4 



SOf<T HEHO 

SELECTIONS 

INTEGER SORT 
FLOATING POINT SORT 
CHARACTER SORT 
EXIT 



# 



SELECTION 1 

BEFORE 
7153 
335 
-1300 
-4376 
-6944 
4943 
-2914 
3416 
-2955 

AFTER 
-6944 
-4376 
-2955 
-2914 
-1300 
335 
3416 
4943 
7 1 53 
HIT ANY KEY TO RETURN TO MENU 



4 



SORT DEMO 

SELECTIONS 

INTEGER SORT 
FLOATING POINT SORT 
CHARACTER SORT 
EXIT 



SELECTION 2 

BEFORE 



65.0306039 

831 ♦056575 

483,8230 94 

-296*508742 

-370,915344 

-226,85172 

-61,0 230 44 

353.768754 

AFTER 
-370,915344 
-296,508742 
-226,85172 
-61,0 23044 


65,030 6039 
353,768754 
483,823094 
831,056575 
HIT ANY KEY TO RETURN TO MENU 
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1 

2 

3 
4 



SORT DEHO 

SELECTIONS 

INTEGER SORT 
FLOATING POINT SORT 
CHARACTER SORT 
EXIT 



SELECTION 3 
BEFORE 

xxxxxxxxcccccccc 

AAAAAAAADDDDDDDD 
DDDDDrtDDBBBBBBBB 
AAAAAAAAXXXXXXXX 
CCCCCCCCAAAAAAAA 

Y Y Y Y Y Y Y Y C C C C C C C C 
YYYYYYYYWvJWWWUWW 
BBBBBBBBWWWUWWWU 
X X X X X X X X B B B B B B B B 

AFTER 
ASCEND DESCEND 
A A A A A A A A X X X X X X X X 
AAAAAAAADDDIiDDDIi 
BBBBBBBBWUWUWWWU 
CCCCCCCCAAAAAAAA 
DDDDPDDDBBBBBBBB 
XX XX X XXX CCCCCCCC 
X X X X X X X X B B B B B B B B 
YYYYYYYYUWUWWWWW 

Y Y YY Y Y Y Y CCCCCCCC 

HIT ANY KEY TO RETURN TO MENU 



SELECTION 1 




BEFORE 


-103 




"3561 




-5898 




3 1 1 1 




2627 




-1089 




7465 




2340 




-5242 






AFTER 


-5898 




-5242 




-3561 




••••1089 




-103 




2340 




2627 




3111 




7465 




HIT ANY 


KEY TO RETURN 



• 



4 



TO MENU 



SORT DEHO 
SELECTIONS 

INTEGER SORT 
FLOATING POINT SORT 
CHARACTER SORT 
EXIT 



SELECTION 



SORT DEMO 




rREENTER 


SELECTIONS 






1 INTEGER SORT 




SELECTION 2 


2 FLOATING POINT 


SORT 


BEFORE 


3 CHARACTER SORT 







4 EXIT 




231,379543 
659,537768 
185,655704 
-186,595071 


11 




-736,508304 


SORT DEHO 




-10,1274439 
-77,9707171 



SELECTIONS 



1 v:- ■") 1 cr / "7 »•"; 



1 INTEGER SORT 

2 FLOATING POINT SORT 

3 CHARACTER SORT 

4 EXIT 



• 
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AFTER 



18 



'36 + 508304 
.86*595071 
'7,9707171 
.0,1274439 

5.655704 
;U379543 



352.15675 

65 

HI 



9.53776S 

f ANY KEY TO RETURN TO MENU 



SORT DEHO 
SELECTianS 

1 INTEGER SORT 

2 FLOATING POINT SORT 



3 
4 



CHARACTER 
EXIT 



>ORT 



SELECTION 1 

BEFO-RE 
2 8 38 



-900 

-4864 

-7349 

6889 

41B3 

1853 

-4013 

-7349 
-4 86 4 
-4013 



-900 
1853 
2888 
4183 
6273 



AFTER 



6889 

H.i:T ANY KEY TO RETURN TO MENU 



SELECTION 3 

BEFORE 
AAAAAAAADDDDDDDD 
CCCCCCCCAAAAAAAA 
CCCCCCCCDDDDDDDD 
WWUUWWWWYYYYYYYY 
YYYYYYYYXXXXXXXX 
BBBBBBBBCCCCCCCC 
CCCCCCCCCCCCCCCC 
CCCCCCCCXXXXXXXX 
AAAAAAAAWUUUUUUU 

AFTER 
ASCEND DESCEND 
AAAAAAAAUUWUUWUU 
AAAAAAAADDDDDDDD 
BBBBBBBBCCCCCCCC 
CCCCCCCCXXXXXXXX 
CCCCCCCCDDDDDDDD 
CCCCCCCCCCCCCCCC 
CCCCCCCCAAAAAAAA 
WWUWWWWWYYYYYYYY 
YYYYYYYYXXXXXXXX 
HIT ANY KEY TO RETURN 



TO MENU 



SORT DEMO 



SELECTIONS 



3 
4 



INTEGER SORT 
FLOATING POINT SORT 
CHARACTER SORT 
EXIT 



SORT DEMO 
SELECTIONS 

1 INTEGER SORT 

2 FLOATING POINT 

3 CHARACTER SORT 

4 EXIT 



SORT 



SELECTION 2 

BEFORE 


370,731155 
264.527624 
345.96456 
-119.00236 
-881.17073 
-302.459631 
-77.2997615 
444.30628 

AFTER 
-881.17073 
-302.459631 
-119.00236 
-77.2997615 


264.527624 
345.96456 
370.781155 
444.30628 
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HIT ANY KEY TO RETURN TO MENU 



SORT DEHO 



4 



SELECTIONS 

INTEGER SORT 
FLOATING POINT SORT 
CHARACTER SORT 
EXIT 



SELECTION 3 
BEFORE 

uuyuuuuuiuujuuwuwu 

DDnriDDDDBBBBBEBB 
UWUUUWWWYYYYYYYY 
D D DD D D B D D D D B D D B D 
D D B D D D B D X X X X X X X X 
YYYYY'YYYBBBBBBBB 
yWWWWUWWBBBBBBBB 
B B B B B B B B Y Y Y Y Y Y Y Y 
BBBBBBBBBBBBBBBB 



AFTER 
ASCENB DESCEND 
BBBBBBBBYYYYYYYY 
BBBBBBBBBBBBBBBB 
DDDDDBBDXXXXXXXX 
DBDBDBDDDBBDDDBD 
liDBDiJDDDBBBBBBBB 
W W U W kl W y W Y Y Y Y Y Y Y Y 

wywwwwwujuwwuuuuu 

UWWUtyyyWBBBBBBBB 
YYYYYYYYBBBBBBBB 
HIT ANY KEY TO RETURN TO MENU 



SORT DEMO 
SELECTIONS 

1 INTEGER SORT 

2 FLOATING POINT SORT 

3 CHARACTER SORT 

4 EXIT 



I 



APPLE II SOFTWARE 

Tabular 4-Way Number Converter 

Integer BASIC (8K min). $3.50 

Apple Pi Life (4K min) $5.00 

Agenda (16K min) , $5.00 

HIRES Shape Encode (16K min) $5.00 

Integer BASIC Floating Point 
Interface (2K Machine Code) $6.50 

Each program completely documented. 
Prices Include postage and handling. 
Send SASE for Software List today! 
Send check or money order to: 

MIcrospan Software 

2213A Lanier Drive 

Austin, TX 78758 

(Texas residents add 5% sales tax) 






APPLE ll'OWNERS 

West Side Electronics Introduces tlie 
APPLHIMETM, Red Fnne Cleci( for the Apple If 

The Appletime (AAode! APT-1) is a single peripheral 
board which plugs directly into any 1/0 slot on the 
Apple tl. Timing is done completely in hardware (ie. 
NOT an interrupt driven clock). Thus, the Appletime 
continues to operate even when the computer Is turned 
off. Our exclusive Three Way Power System keeps the 
clock running via its own AC supply, the computer's, 
or battery backup in case of power failure. Other 
features include 12/24 Hour selection, AC or crystal 
timebose, 50/60 Hz, and BCD or ASCII data format. 
Fully assembled and tested, with instructions and 

APT-1 Real Time Clock $79.95 



Proto-boanI for Apple II. Over 1300 holes on 0.1 inch 
centers for designing your own circuits. 

APB-i Prototyping Board $16.95 



VERBATIM SV4 " DISKETTES $34.50 

Soft sector, in plastic file case. Box of 10 



s 



WEST SIDE ELECTRONICS 

P.O. Box 636 

CHATCWORTH,CA. 91311 




We poy qH shipping in Continental U.S.A. 
Others add lOVo: Caliiornia residents add 6% fax. 



• 
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* OSI Fast Screen Erase under BASIC 



When a BASIC program erases the screen by writing 
blanks, it can take more time to clear the display than to 
fill it. Speed up that slow poke with this fast machine 
language approach. 



William L. Taylor 

246 Flora Road 

Leavittsburg, OH 4430 



While working on a number of game pro- 
grams written in BASIC, the need for a 
faster method of screen clearing for 
animated characters was a desirable 
feature that I did not have with the POKE 
function of BASIC. The usual method is 
to set the desired number of lines to be 
cleared and POKE the ASCII equivalent 
for a blank out to the screen. This gives 
a slow, line-by-line screen clearing effect 
that is not acceptable with fast games 
using animated characters. The screen 
clear routine must be ultra-fast for this 
type of game program. 

The following subroutine will work with 
most BASIC programs that require a fast 
screen clear. The routine Is written in 
BASIC and assembly language. The ul- 
tra-fast screen erase portion is in as- 
sembly object code and is placed in user 
memory. It can be used with programs 
written in OSI Microsoft BASIC for the 
OSI computer systems. 



My system is composed of the system 
boards sold by Ohio Scientific Instru- 
ments. The CPU board is a Model 500 
with the 8K OSI BASIC by Microsoft. 
The display board is a Model 440 with 
4 pages of screen memory and alpha- 
numerics only. My system has 8K of 
read-write memory on two 420C memory 
boards, along with a 430A Super I/O 
board for the audio cassette interface. 

The program is a subroutine that uses 
BASIC as a housekeeper to count the 
number of pages to be cleared. The ac- 
tual work is done in the machine code 
routine that is called by the mainline 
BASIC program. This program can be set 
up as a subroutine and called from your 
mainline when a screen erase is re- 
quired. 

At line 10, the variable D contains the 
initial location for the machine code 
routine that performs the store-to-screen 
function. This is the location at the be- 



10 


D=208 






20 


POKE 11,00; POKE 12.15 




30 X=USR(X) 






40 


POKE 3848, D 






50 


DsD+1 






60 


IF D<213 THEN 


30 




70 


IF Dr213 THEN 


RETURN 




100 


FOR Rx3840 TO 


3853 




110 


READ M: POKE R 


,M 




120 


NEXT R 






130 


DATA 162,0,232 


,169,32,234 | 


140 


DATA 157,0,208 


.224,255, 


208,245,96 


150 


RETURN 







ginning of the screen memory. The 
screen memory begins at hex DOOO, 
or 53213 decimal, on the 440 and the 540 
OSI display boards. 

Line 20 defines the USR vector and sets 
the vector point to hex OFOOO, or 3840 
decimal, where the machine code rou- 
tine is located. Line 30 causes a jump to 
the user vector located at hex OA, OB, 
and OC in page zero of the user memory. 

The machine code routine will 'execute 
and one page of screen memory will 
be cleared. Line 40 updates the page 
count by changing the machine code 
routine at location 0F08, or 3848 deci- 
mal. At line 50, the page pointer is incre- 
mented by increasing variable D by 1. 

Lines 60 and 70 check to see whether all 
pages, or all screen locations have been 
cleared. If they have not (variable D 
not equal to 213 or 217) then another 
loop will be forced until all pages of 
screen memory have been cleared. Line 
70 should be a return, if called as a sub- 
routine: 70 IF D = 213 THEN RETURN 
for a 440 display board, and 70 IF D = 
217 THEN RETURN for a 540 display 
board. 

The loading of machine code into user 
memory can be performed by storing the 
machine code in DATA statments. Then 
the user location is defined and the data 
Is read and POKEd into user memory. 
An example of this method Is found In 
the subroutine at lines 100 through 150. 

A word of caution may be in order at this 
point. The memory size must be set 
when bringing up BASIC. That is, before 
loading your program you must set the 
size of memory to protect the machine 
code routine. Set the memory size to 
3839 decimal, for this routine, to prevent 
BASIC from destroying your machine 
code. 
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THE MICRO SOFTWARE 
CATALOG: X 



Mike Rowe 

P.O. Box 6502 

Chelmsford, MA 01824 



• 



Name: DISK TEXT EDITOR 

System: Apple II 

Memory: Mmlmum of 24K with DOS & Applesoft ROM 

Language: Applesoft II BASIC 

Hardware: Apple II, Disk II, optional Applesoft ROM & 

printer. 
Description: EDIT is a DOS Text Editor designed to 
facilitate changes to disl^ flies, but also supporting in- 
put and output via cassette. The text editor will operate 
on fixed or variable length disk records and has 27 com- 
mands. System commands allow the user to DELETE, 
INSERT, CHANGE, DISPLAY, ADD, and PRINT rec- 
ords. String commands, such as STRING CHANGE 
and SEARCH, find and change a single character string 
or the entire file. User defined TABS, file APPEND, 
and CONCATENTATION, file creation, and other mani- 
pulations are also provided to modify text from the 
keyboard or existing files. 
Copies: Just released 
Price: Cassette $16.95 

Diskette $21.95 (specify Applesoft ROM) 
Shipping $1,25 
Includes: User manual and documentation 
Author: Robert A. Stein, Jr. 
Available from: 

Services Unique, Inc. 

2441 Rolling View Dr. 

Dayton, Ohio 45431 



Name: AMATEUR RADIO LOG PROGRAM 

System: APPLE II 

Memory: 8K 

Language: Applesoft If 

Hardware: Apple II, cassette tape recorder 

Description: This program provides a computerized 
record of an amateur radio operator's log book. 
There are seven functions: 

1. Add log entries 

2. Print log entries by date. 

3. Print log entries by call letters. 

4. Print log entries by entering only first 3 digits of 
call letters and/or entering only call area or district 
or call sign. 

5. Print all log entries. 

6. Print names of places (cities, states, counties, coun- 
tries, etc.) or other info that you enter. 

7. Print log entries by entering only the QTH. 

Data is printed in for form of: 

Date: Time: Call: Freq: MODE: QSL: QTH: Name: 

The program is very useful for QSO's, contests, DX, 

awards, QSLing, QTHs, names. 



All of the above questions will be answered after you 

enter your data and other information. 

Copies: Just released (at least 1 copies have been sold) 

Price: $12.00 

Includes: Cassette, sample run and instructions to 

revise. 
Author: Alex Massimo 
Available from: 

Alex Massimo — A F 6 W 

4041 41st Street 

San Diego, CA 92105 

Name: Programmer's Utility Pack 
System: Apple II 

Memory: 4K to 6K depending on the program used 
Language: Integer BASIC and Applesoft 
Hardware: Apple II with cassettee or disk drive 
Description: Set of 11 programs. Appends, STR$ () and 
VAL are on printed documentation with the tape ver- 
sion. Programs include: Renumber-lnteger& Applesoft, 
Append-lnteger & Applesoft, Line Find-Integer & Apple- 
soft, Address/Hex Converter, Screen find, Memory 
Move, and the STR$() and VALO function simulations 
for Integer. By using the various programs one can re- 
number Integer and Applesoft programs with all 
GOTO's, etc, being renumbered and the user alerted 
to unusual situations in the program. These include 
referenced line #'s not in the program, lines referenced 
by a variable or expression, and a number of others. 
Line Find allows the user to locate the actual address 
range of a line in memory so as to be able to insert CLR, 
HIMEM:, etc. Can also be used on occasion to recover 
programs garbaged by dropped bits. Address/Hex 
Converter converts between the Hex, Integer, and 
Applesoft address formats. It also provides the two 
byte breakdown of numbers greater than 256 for use in 
pointers, etc. Screen Find Is used for printing directly 
on the screen by POKEing appropriate values into the 
proper locations in memory. Screen Find gives these 
values and locations when the characters desired and 
the horizontal, vertical screen positions are input. 
Memory Move allows one to move blocks of memory 
up or down any number of bytes from Integer or Apple- 
soft. The Monitor has a routine similar to this but it can- 
not be used to move blocks up a small distance and It 
is not possible to use it directly from Applesoft. 
STR$() simulates the function of this name in Apple- 
soft for use in Interger programs. STR$0 in Applesoft 
converts a number to a string. VAL() is similar but 
converts strings to numbers. 
Copies sold: Justt released 
Price: $16.95 Calif, residents add 6% sales tax 
Includes: Two cassettes or 1 diskette plus documenta- 
tion 
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Author: Rober Wagner 

Available from: 

Local Apple dealers or: 
Southerwestern Data Systems 
P.O.BOX582-MC 
Santee,CA 92071 
(714)562-3670 
SASE for Info. 



Name: MACRO Assebler/Text Editor 
Systems: PET, Apple II, SYM 

Memory: 16K system recommended. Program occupies 
8K. 

Language: Assembly 

Hardware: Terminal and one or two cassette decks. 
Disk may be used in lieu of cassette decks. 
Description: Combined assembler and text editor soft- 
ware (2000-3FFF) which has the following features: 
Marco and Conditional Assembly support; binary, hex 
and decimal constants; labels up to 10 characters; 
loads/records and appends from tape; string search 
and/or replace commands; auto line numbering; copy 
and more commands; linkage vectors to disks; syntax 
— similar to MOS Technology specs. Over 25 com- 
mands, 22 pseudo ops, and 5 conditional assembly 
operators. 

Copies: Just released. 25 as of April 1979 

Price: $35.00 plus $2.00 shipping and handling. 

Includes: Manual and either PET, Apple II, or SYM (H.S.) 

cassette tape. No source. 

Order Info: Check or money order. 

Author: Carl Moser 

Available from: 

C. W. Moser 

3239 Linda Drive 

Winston-Salem, N.C. 27106 



Name: Commodity File 
System: Apple II 
Memory: 32Kormore 
Language: Applesoft II 
Hardware: Diskll, optional printer 
Description: The program stores and retrieves virtually 
every commodity traded on all exchanges. A self- pro- 
mpting (burned-in) program allowing the user to enter 
open/closed contracts. Figures profits/losses, and 
maintains a running cash balance. Takes into account 
any amending of cash balance such as new deposits or 
withdrawals from account. Instantaneous readouts 
(CRT or printer) of contracts on file, cash balances, P/L 
statements. Includes color bar graphs depicting 
cumulative and individual transactions. Also includes 
routine to proof-read contracts before filing. 
Copies: Just released 
Price: $14,95 on diskette, $9.95 on cassette 
Includes: Program cassette or diskette, Complete 
documentation. 
Author: S.Goldstein 
Available from: 

MIND MACHINE, Inc. 

31 Woodhollow Lane 

Huntington, N.Y. 

11743 



Name:METRICCALC^« 
System: Commodore PET 

Memory: 8K 
Language: BASIC 

Hardware: Pet 2001-8 (or 2001-4 with 4K external mem- 
ory). Available as special order for 2001-16 
or 2001 -32. 
Description: METRIC-CALC turns your PET into a 
powerful stack-operated (RPN) scientific calculator that 
includes metric conversions. Unlike other metric con- 
verters, this one lets you use the converted figures in 
your calculations. Unlike other stack-operated calcula- 
tors, this one lets you see the contents of the stack . . . 
the top five levels are displayed during calculations, 
and all twenty can be reviewed at any time (as can the 
twenty addressable storage locations). Numbers 
"burled" in the stack can be copied to stack-top with a 
keypress. Functions Include Instructions, arithmetic, 
inversion, logarithms, trigonometry, powers . . . too 
many to include here. Write for flyer. Reviewed in 
Spring 79 issues of PET Gasette, and Best of PET Gaz- 
ette. 

Copies: More than 60 sold 
Price: $7.95 (quantity discount available) 
Includes: Cassette in Noreico style box, description 
and operating instructions, zip-lock protective package. 
Designer: Roy Busdiecker 
Available from: Better computer stores or directly from 

Micro Software Systems 

P.O. Box 1442 

Woodbridge,VA 22193 

Name: MAZE GAME 
System: PET 2001 
Memory: 8K 
Language: PET BASIC 
Hardware: Standard 

Description: This is a real-time game of skill which 
tests your co-ordination as you attempt to guide a ball 
through a maze that is displayed on the screen using 
the PET graphics. There are four levels of play which 
grade the speed of the ball and the number of mistakes 
you can make, from the slow learner speed to the ultra- 
fast masochist level. The maze is 19 by 11 squares and 
you have to go from left to right (i.e. the long way). 
Copies: Many 
Price: $19.95 
Author: Jeff Law 
Available from: 

Southern Software Limited 

P.O. Box 8683 

Auckland, New Zealand 

Name: Sales Forecasting 
System: Apple 
Memory: 16K 
Language: Apple II Soft 

Description: Program displays business forecast from 
ttte best fit of four curve fits. Manual operation is op- 
tional. 
Copies: 30 

Price: $9.95 + $1.00 postage & handling (PA residents 
add 6% sales tax) 

Includes: Cassette with Instructions 
Author: Neil D. Lipson 
Available from: 

Progressive Software 

P.O. Box 273 

Ply. Mtg., PA 19462 
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Name: Table Generator 

System: Apple 
Memory: 16K 
Language: Applesoft II 

Description: A program that forms shape tables with 
ease. Program adds in other information such as start- 
ing address, length and position. Saves all of this in- 
formation into a useable location in memory. 
Copies: 10 
Price: $9.95 & $1.00 postage & handling (PA residents 

add 6% sales tax) 
Includes: Cassette with instructions 
Author: Murray Summers 
Available from: 

Progressive Software 

P.O. Box 273 

Ply. Mtg., PA 19462 



Name: Restaurant Evaluation 

System: Apple II 

Memory: 16K 

Language: Applesoft II 

Hardware: Disk II (optional) 

Description: Evaluates potential restaurant/nite club 

sites and thereby reduces the margin of risk involved 

in purchasing a new or existing business. The program 

design is of a computer question, user answer nature. 

The auther has borrowed against his many years of 

experience in the restaurant business and has built 

into the program all the necessary percentages to 

evaluate whether a potential site will be profitable or 

not. The program calculates monthly gross, computes 

monthly loan notes (or mortgage) and arrives at a 

monthly net proft/loss reported in dollar amounts and 

percentages. 

Copies: Just released 

Price: $14.95 Diskette, $9.95 cassette + $1.00 Shipping 

Author: M.Goldstein 

Available from: 

MIND MACHINE, Inc. 

31 Woodhollow Lane 

Huntington, NY 11743 

Name: Personal Accounting System— PAS 

System: PET 

Language: BASIC 

Hardware: Single cassette drive or COMPUTHINK disk 

Description: PAS relies heavily on the PET's file 
capabilities to generate and validate files containing a 
detailed description of your financial transactions. 
PAS consists of six programs including those to gen- 
erate and edit data files, balance your checkbook, 
reconcile your bank statement, report your outstanding 
checks and summarize your transactions over a period 
of time. PAS creates files for monthly transactions, 
outstanding checks, and summaries. 
Includes: Excellent user manual, cassette or disk 
Author: Ronald C. Smith, SMITHWARE 
Copies: Just released 

Price: Cassette version (8K), $19.95; disk version, $24.95 
Author: Ronald C. Smith, SMITHWARE 
Available from: 

PROGRAMMA INTERNATIONAL 

3400 Wilshire Blvd. 

Los Angeles, CA 90010 



Name: SIGNS 
System: PET 2001 

Memory: 8K 

Language: PET BASIC (IEEE port 5) 
Hardware: Printer (PET or RS-232) 
Description: The signs package is intended for produc- 
ing posters, headings and other signs, in several 
formats, to be printed on a printer. The package con- 
sists of two programs written for 8K PET systems. 
One program initializes data for the signs program and 
then the second program requests text for the sign 
and prints the sign out with three sizes of letter 
(micro, small and big); left, centre or right justified on 
tha page, with options to specify foreground and back- 
ground characters. Other options include NEWPAGE, 
SPACE n, and END. 
Copies: Many 
Price: $19.95 
Author: Terry Teague 
Available from: 

Southern Software Limited 

P.O. Box 8683 

Auckland, New Zealand 



Name: Othello 

System: 6502 SYM-1 bare system 

Memory Required: 1K 

Language Used: 6502 Machine Language 

Hardware Required: None 

Description: The look ahead ply depth is entered 

through the key board. Player or computer may move 

first. All sequences of moves are evaluated, with the 

2,3,4,5, etc. ply game requiring 1 sec, 8 sec, 1 min, 8 

min, etc. respectively per move. Every move, is checked 

for legality, (beeper sounds if move is invalid) and all 

moves and number flipped are displayed automatically. 

Player enters his moves through the keyboard. Ply 

depth is automatically incremented near the end of 

the game. For example, in 1 min, the computer plays 

the last 7 moves perfectly! 

Price: $6.95 

Includes: Cassette (KIM format) and instructions 

Author: David B. Schaechter 

Available from: 

David B. Schaechter 

4343 Ocean View Blvd. Apt. 261 

Montrose, CA 91020 



Name: ALGEBRA 
System: APPLE II 

Memory: 16K 

Language: Integer BASIC and Machine Language 

Description: School tested enjoyable algebra pro- 
grams, using missing words, this interactive program 
starts the student learning algebra on the high 
school level. 
Copies: Just released 
Price: $9.95 for cassette with 2 lessons 
Includes: Cassette and loading instructions 
Author: George Earl 
Available from: 

George Earl 

1302S. Gen. McMullen 

San Antonio, TX 78237 
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To Tape or Not to Tape: 
What is the Question? 



Noel G. Biles 

P.O. Box 1111 

San Andreas, CA 95249 



Dust off that oscilloscope and clear up some of the 
mystery behind digital data recording on audio cassette. 



These lines are penned In an attempt to 
clear up some of the mysteries of doing 
the impossible, and to explain some of 
the apparent idiosyncrasies of elec- 
tronics. Some microcomputer operators 
are neophytes in basic electronics, and 
so, this little lesson will endeavor to ex- 
plain what each part is, how It works, and 
why it is used in a given circuit. I would 
suggest you try the experiments shown 
In Figure 3 for a better understanding of 
the circuit theory. 

Those who don't own an oscilloscope, 
could make one of your club meetings in- 
to an evening away from talking about 
the merits of software or peripherals, 
and try to understand what you are pay- 
ing for when you lay out that long green. 
Of course, remember to invite someone 
who owns an oscilloscope. 

As the title of this episode suggests, we 
will investigate why such a simple thing 
as making a tape recording can cause so 
much discussion. Most computerists 
have seen a drawing of the electrical 
signal put out from a Teletype keyboard 
and have noted the similarity to draw- 
ings of an ASCII signal; let's face it, 
we've got to learn how to handle these 
fast changes of DC voltage called square 
waves, obviously a misnomer because 
we all know that waves are rythmic un- 
dulations of matter and therefore can 
never realty be square. 

We are told that a square wave is an 
"instantaneous" change of voltage from 
one level to another, with both levels 
maintained without variation until the 
next change of state. For TTL circuits 
these levels are approximately plus 4.8V 
for level 2 and plus C.2V for level 1 , usual- 
ly just called 5V for a "1" and zero V for a 
"'0". 



I hinted that I was going to talk about the 
tape recording of digital signals, and I 
will. First of all, as Dr. DeJong might say, 
Earthpeople have not yet invented an 
audio tape recorder that will record or 
playback digital signals composed of the 
classical description of the same, name- 
ly, "A series of square waves varying on- 
ly in frequency or timing but unvarying in 
amplitude." A Teletype punched paper 
tape comes very close to the ideal way of 
making a permanent recording of digital 
signals and, when played back, will pro- 
duce digital signals very close to the 
original; however, the expense of one of 
these machines puts it beyond the 
budget of most of us. And besides, 
where do you store all that paper tape? 

Them fellers in Kansas City are pretty 
smart for flatlanders 'cause they figured 
out a way to fool a computer into think- 
ing it is receiving square waves when it 
really ain't, and that's the gist of my 
story. All your computer wants to receive 
on the "from tape recorder" line is data 
to say that this frequency of tone means 
a "one" and this frequency of tone 
means a "zero". "Sounds so darn sim- 
ple" you say, "How come one of us 
mountain folk never thought of that?" 
Now if we can just make our computer 
generate those two tones and put them 
on the "to tape recorder" line in the cor- 
rect sequence and time, we will have a 
system like the boys from Kansas City 
envisioned. 

As we said before, even the best tape 
recorder cannot record square waves, 
but that is all our computer can 
generate, so we must modify these 
square waves to fool the tape recorder 
into thinking they are distorted sine 



waves. Then, when they are played back 
to the computer, it will modify these 
distorted sine waves back to square 
waves which our computer can digest. 

Figure 1 shows the "tape out" circuitry 
of the Synertek VIM-1 microcomputer. 
Because the tape recorder requires only 
a few millivolts on its input line, the 5 
volt square wave from pin 9 must be 
reduced to usable proportions by the 
voltage divider formed by R90, R89, and 
R88. R90 does double duty in conjunc- 
tion with C14; it forms a low pass filter 
which has the effect of slowing down the 
rise time of the square wave signal from 
pin 9 to a modified square wave with 
rounded corners as shown on the 
schematic, and if the "LO" terminal on 
this machine is used, some additional 
"rounding off" of the signal will be ac- 
complished by the added cable 
capacitance in conjunction with R89. 

Now, one important thing is that the 
recorder input level control must be set 
so that no overloading of the amplifier 
stages in the recorder occur {because 
that drives the transistors in there crazy) 
but so that a sufficient level is maintain- 
ed for operating the tape head. 
Recorders with automatic level control 
(ALC) are great for this type of service 
because they don't have any recording 
level control to adjust. 

"Aha!" you say, "My tape recorder is a hi 
f i unit and will reproduce these distorted 
sine waves just as recorded, and that is 
not what my computer wants to see." 
This is true, but the computer is expect- 
ing this type of a signal and is prepared 
for it, as in Figure 2. The output signals 
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from most cassette tape recorders 
would be a little further distorted from 
the passage of semi-square waves 
through the output transformer, which 
no longer sees the correct load because 
we have disconnected the 8 ohm 
loudspeaker. It reflects this change of 
load impedance back to the primary, in 
turn destroying the fidelity of the output 
stage. 

Looking at Figure 2, the schematic of the 
tape recorder input of the Synertek VIM 
1, the recorder will see a load of approx- 
imately 270 ohms formed by the series 
impedance of R128 (100 ohms), C15 (170 
ohms @ 2,000 Hz), and CR36,37 (approx- 
imately 100 ohms) to ground, less the 
parallel resistance of C16, R92, and 
diodes CR28, CR29 through R94 to 
ground, for a total of 264 ohms. The 0.5 
watt or more available from the output of 
the recorder is capable of driving this 
load to better than 11 volts, which is now 
divided down to the correct voltage to 
drive the op amp "sine to square con- 
verter" U26. 

This division is accomplished via the 
impedance of C16 (8,000 ohms @ 2,000 
Hz) plus R92 (1,000 ohms) through CR28, 
CR29 (100 ohms) and R94 (3.3K ohms) to 
ground. So if we adjust the recorder gain 
control for approximately 8 volts at the 
input terminal we should have about 2V 
of signal at op amp pin 3. 

This voltage Is more than enough to 
cause diodes CR28 and 29 to clip the 
voltage peaks at 1.5V and limit the input 
to the op amp. With the amplified inverse 
voltage from pin 7 fed to pin 2 through 
R96, the signal at pin X on the expansion 
connector will be a nice clean replica of 
the near perfect, zero to 5 volt square 
wave we first generated from U37 in 
Figure 1 . R128, C15 and diode CR37 form 
an audio voltmeter, while diode CR36 is a 
recording level indicator illuminated by 
the rectified voltage from CR37. 

Now that we thoroughly understand all 
of the above, let's prove that this really 
works. Refer to Figure 3 and construct a 
simple square wave generator on a Proto 
board with an oscillator operating at ap- 
proximately 2,000 Hz and an inverting 
buffer to simulate the internal generator 
in the computer. We will need a 4011 
Quad Dual Gate Integrated Circuit, 5 
resistors, and 2 capacitors to build the 
generator and divider chain. In addition, 
we will also require a 5V power supply to 
operate the unit. 

Hook up the power supply and, if there is 
no smoke, start by connecting the 
oscilloscope to point X in Figure 3. It 
should reveal a fairly good square wave 
approximately 5V in amplitude. With C1 
temporarily disconnected, point Y will 
show the same square wave at approx- 
imately 1.5V of amplitude, while point Z 
shows .036V of square wave. 

Reconnect CI to point Y and note the 
distortion at this point on the rise and 
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fall times, but not on the amplitude of 
the square waves. Point Z will be a re- 
duced voltage version of this distorted 
square wave. Or is it a distorted sine 
wave? 

The frequency chosen for this experi- 
ment (2,000 Hz is the center of the two 
frequencies used on the VIM or SYM 
microcomputers) will have a direct bear- 
ing on the values chosen for R1 and CI. 
Too large a value for either would reduce 
the amplitude and shape of the wave we 
are looking for. Too little value would 
reduce the rounding off of the rise time. 



Try it: add 0.022 mf in parallel with CI 
and note the added distortion and reduc- 
tion in signal strength to near triangular 
wave at one-half the voltage. 

Remove this added capacitor and con- 
struct Figure 4 on the Proto board, keep- 
ing Figure 3 intact. Now jumper point Y 
on Figure 3 to "IN" on Figure 4, as per 
the dotted line. Because the signal at 
point Y is only 1.2V, diodes CR36 and 
CR37 cannot conduct, effectively dis- 
connecting R6 and C4 and lightening 
the load so that point Y does not distort 
much beyond the original shape prior 
to addition of the jumper. Checking 
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now at pins 2, 3, and 6 should yield 
signals approximating those shown on 
the schematic. 

Disconnect the jumper from point Y to 
"IN" and prepare for the big test. Refer- 
ring to your tape recorder instruction 
manual, connect a shielded lead from 
point Z or Y to the mike or auxiliary input 
and make a five minute recording of the 
2,000 Hz signal. Rewind the tape and 
connect the IN terminal of Figure 4, 
again with a shielded line, to the monitor 
or earphone jack on the recorder. Press 
the PLAY button and adjust the volume 
control to obtain 6 to 8 volts of signal at 
the IN terminal. With the oscilloscope 
connected to pin 6 of the op amp, you 
should see a fair replica of the square 
wave you first saw at pin 3 of the 4011 
oscillator buffer. 

Your scope should have a 10 MHz band- 
width, to observe fast square waves, but 
any scope will do for these experiments, 
and that's why I said a "fair replica" of 
the signal. 

All things considered, the design of the 
VIM 1 cassette interface is more than 
adequate. When I first fired up my VIM, 
the only tape I could lay may hands on 
Immediately was a 39 cent, 200 times 
erasure/rewind tape that my daughter 
had used to bring home her French 
language home work. I used this tape to 
make a Sync tape and record the first 
few short programs. It still loads every 
digit without dropouts. 



KIM / SYM / AIM ACCESSORIES BY MTU 




REAL GRAPHICS FROM OUR VISIBLE MEMORY 

Over the last year and a half we have delivered hundreds of our Visible 
Memory graphic display boards and customers are still finding novel uses 
for them. The Visible Memory is an 8K byte memory board that is directly 
compatible with the KIM/SYM/AIM computers and functions just like an 8K 
memory expansion. Its content however is also displayed on a standard 
video monitor as a 320 by 200 dot array with each dot corresponding to a bit 
in memory. Since each dot is individually controllable, any kind of image, 
even text (22 lines, 53 characters) with subscripts/superscripts is possible. 
Our assembly language graphics/text software package makes programming 
the Visible Memory easy. Microsoft 9-digit BASIC users now have access 
to the graphics and text routines through our just released BASIC Patches 
Package. In fact, the images above were created entirely with SIMPLE 
BASIC programs. 

K-1008A VISIBLE MEMORY $240.00 
OTHER ITEMS 

KIM Power supply $35.00 AIM Power supply $80.00 
Enclosed card file for 4 boards KIM $75 SYM $80 AIM $95 
8-b(t audio system DAC-Filter-Amp. KIM/SYM/AIM $40 PET $50 
PET to MTU style KIM/SYM/AIM bus adaptor $79 
Prototyping board, fits in card file, 2 regulators $42 
We have sophisticated music and graphics software too! 

PLEASE REQUEST OUR NEW, EXPANDED SPRING 1979 CATALOG 



16K LOW POWER MEMORY 

Do you want more memory for your 
KIM/SYM/AIM but don't have a 5 amp 
power supply or fan to cool it? Our 
16K low power dynamic RAM board is 
designed for these processors and 
draws a mere 200MA from 8 volts 
unregulated and 200MA max (75 MA 
typical) from +16 volts unregulated. 
Our little K-1000 power supply can in 
fact run 64K of these boards plus a 
KIM easily. 

K-1016A16K RAM $340.00 

We now have available a multifunction 
system board for the KIM/SYM/AIM 
processors. It has a PROM capacity 
of 12K using the industry standard 
2708 PROM or 14K using the readily 
available Tl 2716. Also included is a 
2708/2716 PROM programmer, 4 para- 
llel ports, and a bidirectional serial 
port. Low power: +8 at 350MA, + 16 
250MA. 

K-1 01 2A PROM/10 $237.00 



MICRO TECHNOLOGY UNLIMITED. 841 Galaxy Way, Box 4596, Manchester, NH 03103 (603)627-1464 




DISK DRIVE WOES? PRINTER INTERACTION? 

MEMORY LOSS? ERRATIC OPERATION? 

DON'T BLAME THE SOFTWARE! 

^ ISO-1 ^^ ISO-2 

Power Line Spikes, Surges & Hash could be the culprit! 
Floppies, printers, memory & processor often interact! 
Our unique ISOLATORS eliminate equipment interaction 
AND curb damaging Power Line Spikes, Surges and Hash. 
•ISOLATOR (ISO-1 A) 3 filter isolated 3-prong sockets; 
integral Surge/Spike SupprBSsion; 1875 W Maximum load, 

1 KW load any socket $49.95 

•ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; 
(6 sockets total); integral Spike/Surge Suppression; 

1875 W Max load, 1 KW either bank $49.95 

•ISOLATOR (ISO-ICB/-2CB) 15 A Circuit Brkr $57.95 
•ISOLATOR (ISO-ICBS/-2CBS) Brkr-switch/lite $62.95 
•SUPPRESSOR/FILTER (SFK-33) three 3-prong sockets, 

1250 Watt Maximum load $32.50 

•SUPPRESSOR/FILTER (SFK-31) 3-prong socket; 

KW $24.50 

PHONE ORDERS 1-617-655-1532 ■■■ 

Dept. mi "i^" 

ISS^ Electronic Specialists, Inc. 

171 South Main Street, Nalick, Mass. 01760 



KIM • 
SYM • 
AIM • 



One magazine publishes • APPLE 
more information about 
6502 based systems, 
products and programs 
than all of the others 
combined: * OSI 



• PET 



P.O. Box 6502 
Chelmsford, MA 01824 

Are you tired of searching through 
computer magazines to find articles that 
relate to your 6502 system? MICRO 
magazine is devoted exclusively to 6502 
systems. Each month, MICRO publishes 
application notes, hardware and software 
tutorials, interfacing information and 
program descriptions with complete 
source listings. MICRO is not just fun and 
games. It is the complete reference 
source for all 6502 enthusiasts. 

You can order twelve issues of MICRO for $15.00, or for $18.00 
outside tfie United States. Air mail subscriptions cost $27.00 in 
Central America, $33.00 in Europe and South America, and 
$39.00 in all other countries. 

MICRO has been published regularly since October, 1977. 
Articles that appeared in the earlier issues of MICRO may be 
obtained in two bound anthologies, BEST OF MICRO Volume 1 
and the companion collection ALL OF MICRO Volume 2, both 
available at computer stores or from the magazine. 



• 



MORE IMHOVATIOHS! 

FROM 

P.S. SOFTWARE HOUSE 

FORMERLY PETSHACK 



PET™ INTERFACES 



NEW! 

PET to CENTRONICS INTERFACE 

PET to PARALLEL INTERFACE with 5V .8A power supply 

PET to 2nd CASSETTE INTERFACE 



$9 a 00 

$74.95 
$49.95 



PET™ SCHEMATICS 



FOR ONLY $24.95 YOU GET: 

24" X 30 schematic of the CPU board, plus oversized schematics of the Video 
Monitor and Tape Recorder, plus complete Parts layout - all accurately and 
painstakingly drawn to the minutest detail. 

PET™ ROM ROUTINES 

FOR ONLY $19.95 YOU GET: 

Complete Disassembly listings of all 7 ROMS, plus identified subroutine entry 

points; Video Monitor, Keytward routine, Tape Record and Rayback routine. Real 

Time Clock, etc. To entice you we are also including our own Machine Language 

Monitor program for your PET using the keyboard and video display. 

You can have the Monitor program on cassette for only $9.95 extra. 



SOFTWARE: 



6502 DISASSEMBLER $12,95 

MAILING LIST - For personal or business applications. S9.95 

MACHINE LANGUAGE MONITOR - Write Machine Code. Save on tape $9.95 
BUDGET ■ NEW - Keep-track of Bills and Checks, Update as needed $14.95 
STARTREK - All-time favorite written for the PET's special Graphics 



S7.95 



Send for our free SOFTWARE BROCHURE. Dealer inquiries welcome. 

P.S. SOFTWARE HOUSE 

P.O. Box 966 MIshawaka, IN 46544 

Tel: (219) 255-3408 ^B 



eA 



aUAMASSOOATCS 



SHORTY 



24OO0 Bessemer Street Q-l Q CASSETTES 

Woodland Hills, Ca. 91367 

• Tarbell Quality 

• "SCOTCH" brand high out- 
put/low noise "POSI-TRAK" 
back treated tape 

• Spring loaded pressure pad 

• 5 screw take-apart shell 

• Exclusive ^ label 




Stock No. EAC-10 



$13.50/10 



CASSETTE LABELS 

5626-6 Blank Fanfold 6 Lines/Inch 

5626-8 Blank Fanfold 8 Lines/inch 

CLB-R Blank Sheet 15/Sheet 

5626-B Blank Pack 

EA-EBEA Printed Pack EA Label 

CLP-R Printed Sheet 15/Sheet 

MAILING LABELS 

4815-1 2V2X15/16 Fanfold 

561 5-1 3V2 X 1 5/1 6 Fanfold 



$26.00/20 



$5.90/100 
5.90/100 
6.20/ 90 
4.00/100 
5.50/100 
7.50/ 90 

$4.40/1000 
4.40/1000 



VOLUME AND DEALER DISCOUNTS AVAILABLE 



STOCK NO. 



QUANTITY 



PRICE 



Name 

Address 
City 

Exp. Date 



Cal.Tax6% 



TOTAL 



.State. 



-Zip 



Card No. 

Sig natu re 

PREPAID ORDERS SHIPPED POSTPAID 



H 



D 
D 
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6502 Bibliography: Part Xi 



Dr. William R. Dial 

438 Rostyn Avenue 

Akron, OH 44320 



438. Kilobaud No. 27 (Mar., 1979) 

Lindsay, Len "PETpourri", pg. 9-14 
PET accessories, Software worth mentioning (renumber, 
Extended graphics, basic utilities, cassette magazines, 
etc) cassette maintenance, programming hints. 

McFarland, Dr. Ward J. Jr. "The 'El Cheapo' EPROM 
Programmer", pg. 46-50. 

An inexpensive EPROM programmer with software for the 

6502. 

Ruckdeschel, F.R. "The OSi Model 500", pg. 130-132. 
The author concludes that OSI's Model 500 comprises a 
compromise between completeness and cost. 

Carptenter, C.R. (Chuck), "Telpar Thermal Printer", 
pg. 138-139. 

The Apple II is interfaced with a TELPAR PS-40 printer; 

with software. 

439. PET User Notes 1 Iss 6 (Sept./Oct., 1978) 

Butterfield, Jim "FOR-NEXT and GOSUB-RETURN 
Structures", pg. 2. 

Clarification of these important commands for PET. 

Paul, Grant "Head Alignment for the PET", pg. 2. 
Instructions for a simple method of aligning the PET 
cassette recorder head. 

Butterfield, Jim "Disabling the PET Stop Key", pg. 6. 
Provides PET with a non-stop feature. 

Wilcox, David H. "Index", pg. 7. 
A program for PET to find a given program on tape. 

Butterfield, Jim "View" 
A program for placing an image of one given page of 
memory onto the screen of PET 

Louder, Mike "Dynamic Keyboard Rvisited", pg. 11. 
A technique for adding GOTO and GOSUB expressions 
while a program is running on the PET. 

Buttefield, Jim "Cassette File Usage Summary", pg. 14. 
Opening files, writing tapes with increased spacing, 
Closing files, etc. 

Group, PET User "Machine Language from Basic", pg. 14. 

Anon. "Non-Zero PIVOT ELEMENTS STRATEGY", 
back cover. 

The program finds the inverse of the left hand coeff. 

matrix and solves for the roots of the linear equation 

system. 

440. Rainbow 1 Iss 1 (Jan., 1979) 

Anon. "Basic Music and Sound Effects", pg. 16-17. 

Music for the Apple 11 incorporating Gary Shannon's 
routines. 

441. Southeastern Software Issue 6 (Feb., 1979) 

Staff, "Apple Diskettes", pg. 2. 
Note on the use of the reverse side of diskettes to provide 
twice the storage space. 

Staff, "Tape Save", pg. 2. 

How to use a program TAPE SAVE with the Guil Banks 
EXEC GEN program from Issue 5. Provides Tape backup 
for your DISKS. 



Staff, "Abbreviated Commands for the Apple DOS", pg. 35. 
Change "Catalog" to "C", etc. 

Staff, "How to Edit Print Commands Without introducing 
Spaces", pg. 5-6. 
A great editing aid. 

Staff, "All about Call-868 and Call-958", pg. 6. 
Explanation and examples. 

442. Call ■ Apple 2 No. 1 (Jan., 1979) 

Aldrich, Ron "Disk to Disk Transfer", pg. 3. 
Integer Basic program for Apple to transfer programs disk 
to disk. 

Wigginton, R. "Applesoft Chain", pg. 3-6. 

A method whereby user programs in Applesoft can chain 
between programs and retain all variable values. 

Finn, Jeffrey K, "Apple Sharing", pg. 8-10. 
Standard format options for electronic data transfer, how 
to modify default settings on the Apple Communications 
Interface Card, etc. 

Golding, Val "High Crimes and How to Commit Them". 

pg. 12. 
How to set HIMEM: within a program; How to create 
illegal line numbers such as 65535 in Integer Basic. How 
to execute other illegal commands from within a program 
such as LOAD, Save, Run, DEL, NEW, etc. 

Thyng, Michael "Apple Wash", pg. 12. 

How to use the Apple II disk... variables, records and files 

Schwartz, Marc "Avoiding End of Disk Error", pg. 18. 
Involves use of ONERRGOTO command. 

Aldrich, Ron "Disk to Tape transfer Program", pg. 19-20. 
An integer basic program. 

Aldrich, Ron "Split Catalog", pg. 20-21. 
Use this program for your init program and your catalog 
win list out in two columns on booting disk. 

Staff, "Tone Routine", pg. 22. 

Routine demonstrates tones by setting variables P and D 
to A for next loop. Also demonstrates use of &. 

443. Applecore Newsletter 1 No 5, (Aug., 1978) 

Hertzfeld, Andy "Disk II review", pg. 1. 
Transfers data at a rate of 156K bits per second, about 
100 times as fast as the cassette interface. 

Avelar, Ed "Apple II Multi-Cassette Dumper", pg. 3. 

An easy project to save programs from Apple to six or 
more cassette recorders simultaneously. 

Staff, "Apple Beeps Translated", pg. 4. 

How to use the Tape beeps to tell how long a program is. 

Wyman, Paul "Integer Basic Subroutine for Multiplying 
Whole Numbers Time a Fraction", pg. 5. 

How to use a fraction with Integer basic, on the Apple. 

Doty, Jim "String Arrays in Integer Basic", pg. 6. 
A simple way to get around the lack of String array 
capability in Integer Basic in the Apple. Pack two 
characters into one integer value. 



July 1979 



IVIICRO— The 6502 Journal 



14:61 



Wyman, Paul "Tale of a Klutzy Tape-Recorder Nurd", pg. 6. 
How to recover parts of a program on a damaged tape. 

Rainbow 1 No 2 (Feb., 1979) 

Simpson, Rick "Introduction to Using HIRES Graphics in 
Integer Basic", pg. 5-11. 
Welcome assistance in understanding HIRES Graphics. 

Ellmers, Judd B. "Aligning the READ/WRITE Heads on the 
Panasonic RQ-309 DS Cassette Recorder", pg. 12-13. 
How-to instructions using simple tools. 

Staff, "Using the Apple II Mini-Assembler", pg. 19-21. 
The Miniassembler is essentially a programming aid in 
converting a handwritten program to object code. 

445. Applecore Newsletter 1 No 8 (Nov., 1978) 

Hertzfeld, Andy "DOS— The Name Game", pg. 4. 
How to use your own names for DOS commands; output 
and input "hooks" for the DOS; the advantages of typing 
9DB9G from monitor to re-initialize the DOS— said to be 
safer than the 3D0G technique. 

Kamins, Scot "MENU", pg. 5, 
An effectual program to allow program choice by number 
from a disk catalog on the Apple II. 

Wells, Arthur "No More 'Catalog' ", pg. 5. 

How to make the catalog come up automatically on 
booting DOS. 

Hughes, Tony "Applecore Disk of the Month", pg. 3. 
The catalog of the first disk looks very impressive. 

Hertzfeld, Tony "Volume MISMATCH matched", pg. 10. 
A patch to disable the volume check on the Apple Disk. 

Danlelson, Larry "Pioneer Hardware Mod", pg. 12. 
A modification for those who bought Apples before the 
color killer modification was put in. 

446. Call Apple 2 No 2 (Feb., 1979) 

Thyng, Mike "Volume Mismatch", pg. 6. 

How to avoicj volume mismatch on the Apple DOS. 

Aldrich, Darrell "Programming Algorythm", pg. 6. 
This is a program for linking routines in the COUT or the 
KEYIN EXIT when disk is in use on an Apple. 

Golding, Val J. "Debugging as a Learning Aid", pg. 10. 
Debugging with examples. ..6502 registers, TRACE, 
Control D before DOS commands, DSP, etc. 

Aldrich, Ron **Disk-Disk Transfer Program", pg. 12, 
This program will transfer Integer, Applesoft or Binary 
listings. 

Golding, Val J. "Integer Basic Entry Points", pg. 14. 
A program for integer basic Command Entry Points 
formatted for Printer or screen. 

Golding, Val and Huelsdonk, Bob "Applesoft Program 
Tokens", pg. 18. 
A routine is given to display Applesoft program Tokens. 

Golding, Val J. "Convert Catalog to 'C ", pg. 18. 
A routine is given to automatically change DOS com- 
mands on the Apple. 

Thyng, Mike "Apple Mash", pg. 19. 

Discussion of Volume mismatch error, the problem about 
the Apple DOS not reading or writing to disk if fine number 
is over 255, etc. 

Anon, "Apple Source", pg. 20. 

DOS Version 3.2 can be expected to be available in March 
together with a new DOS manual! An UPDATE program 
will be made available to modify older disks. Pascal on 
disk and a RAM card will give the Apple 60K of Ram avail- 
able. 

Aldrich, Darrell "Disk Free Space", pg. 20. 
A routine to print no of sectors and bytes free on your 
Apple disk. 



447. 6502 User Notes No 13 (Jan., 1979) 

Leedom, Robert C. "Kim Hexpawn", pg. 1-5. 
Can be played on a 1 K KIM-1. 

Butterfield, Jim "6502 OP CODES", pg. 6. 
The author has grouped the codes logically so you can 
see how the codes are classified and decoded. 

Tepperman, Dr. Barry "Tape Verify (11)", pg. 7. 

Program is located in Kims page two rather than in the 
VEB as in the case of the earlier version of Verify. 

Swank, Joel "Tape File Recovery Routine", pg. 8-9. 

How to recover a tape with a dropout. Program for KIM. 

Staff, "Language Lab: FOCAL", pg. 10. 
Focal for the KIM 

Staff, Micro-Z Co "KIM Basic Hint", pg. 11. 
Fixes and Modifications for KIM Basic. 

Herman, Harvey "Basic Renumber Program", pg. 12. 
For those who use Microsoft Basic on KIM. 

Day, Michael E. "Two Tiny Basic Mods", pg. 13. 
Bugs and Fixes for Tiny Basic. 

Rehnke, Eric "Forth", pg. 14. 
All about Forth manuals, different types of Forth, etc. 

Oliver, John P. "Forth Comments and Example", pg. 14. 
Use of Forth on a PET in a telescope pointing program. 

Rehnke, Eric C. "A 6522 I/O Board", pg. 16-17. 
Room for four of the versatile 6522 PIA's. 

Rehnke, Eric "KIM-4 Bus PINOUT", pg. 18. 
Definition of the 44pin Standard KIMBUS. 

Rehnke, Eric "Video Displays", pg. 19. 
Standalone versus Memory Mapped displays are 
discussed. 

Rehnke, Eric "Polymorphic Video Board Mods", pg. 20. 
Some modifications before adding this board to the KIM 
system. 

Leedom, Bob "Random comments about KIM and SYM", 

pg. 22. 
Addition of an outboard risistor and A/D assists KIM in 
games such as ASTEROID. Some Mods are necessary in 
using KIM programs on the SYM. 

Butterfield, Jim "Multi-Mode Adder", pg. 23. 
This program adds and subtracts in either decimal or hex. 

Zuber, Jim "ASCII Dump Program", pg. 24. 
This program will dump ASCII data from memory of KIM 
to a printer. 

Rubens, Thomas J. "Keyboard Debounce Routine", pg. 25. 
A fix for noisy KIM keyboards. 

Lyon, Douglas "Melodies for the Music Box", pg. 25. 
Six new tunes for this popular music program. 

Firth, Mike "Camera Speed Tester", pg. 26. 
With a minimum of hardware and software timing KIM can 
time the shutter. 

Hawkins, Geo. W. "Power-On Reset", pg. 27. 
Very simple hardware for this task. 

Rehnke, Eric "The Outside World Connection", pg. 27. 
Use of OPTO-lsolators In interfaces to the outside world 
(KIM). 

Egbert, Dwight D. "More on the OPTO-lsolator", pg. 27. 
KIM-1 to RS232 using opto-isolators. 



448. Dr Dobb's Journal 3 Iss 3 No 33 (March 1979) 

Swank, HJoel "PIA's for KIM", pg. 41-42. 
Connect a Motorola 6820 PIA to your KIM. 
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Introducing SEAWELL's 




Idttte Buffered Mother 

The ultimate Motherboard for any KIM-1 , SYM-1 , or AIM-65 system 




Features: 
4K Static RAM on board 
+ 5V, + 12V, and - 12V regulators on board 

• 4+1 buffered expansion slots 

• Accepts KIM-4 compatible boards 

• Full access to application & expansion 
connector 

- LED indicators for IRQ, NMI, and power-on 
Also compatible with SEA-1 , SEA-16, the 
PROMMER, SEA-PROTO, SEA-ISDC, and more 
Onboard hardware for optional use of a 
17 (128K addressing limit) 



Mounts like KIM-4 or with CPU board stand- 
ing up 

10 slot Motherboard expansion available • 
SEAWELL's Maxi Mother 

Introduction price $99. 
Regular price $119. 
with 4K Static RAM installed $169. 
Assembled - 3 month warranty 



For further information contact: 

SEAWELL fvlarketing Inc. 
P.O. Box 17006 
Seattle, WA 98107 



SEAWELL Marketing Inc. 
315 N.W. 85th 
Seattle, WA 981 17 
(206) 782-9480 




uter 



ii' .■•' 



rum..... 



14052 EAST FIRESTONE BOULEVARD 
SANTA FE SPRINGS, CALIFORNIA 90670 
(213)921-2111 • (714)7390711 



BUSINESS 

EDUCATIONAL 

PERSONAL 
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APPLE SPECIAL INTEREST GROUP 

If you have a special interest in using the Apple send us your 
Name, Address, Phone No. and what your special interest is. We 
will put you on our special interest mailing list. Each time the list 
gains enough new members tor your special interest, we will send a 
copy to everyone on the list. This way you will be in contact with 
others that have the same Appie Interest as yourself. 

Your special interest could be dress pattern making, RTTY 
application, NC (numerical control) or anything else that you may 
want to hear about from others. 




List Price Sale Price 

16K $1195.00 $1095.00 

32K $1345.00 $1195.00 

48K $1495.00 $1295.00 

Modulator to connect to color T.V $ 29.95 

SUPER CHIP 




• Full ASCII character set {lower case) 

• 31 other, useful non-ASCII characters 

• User-defined characters with our Character Edit 
Cassette 

• Enhanced editing capabilities for program and 
data modification 

And, it works with your existing APPLE 
programs— Integer BASIC and Applesoft. 

$94.95 




List . . . $225.00 




Applell EPROM 

Expand Your ROM Software 



lor 771 6t 


Oirwr BASIC! (tc HUT 


ng APPL£ II ROM Kltwwe «lir> oMriTino >r*1»nt of ymi' own dation 
•imtw Id pascal fOflTM, LISP API. FOTTHAK. COBOL. ALCWL, 


Th^. t;*™ rM APPLE 


SoO^VSV ICT rZn^' 32^6 


e itw MICMPmXWCT* Suowum «c 



$34.95 




S49.95 







$359.00 




FEATUNEI' 

• Fully «»»mtiJ«c 



ftoDia wtnotj in exirino APPLE (I ROM 

Add na« oMrwing lyitona (o APPLE M 
Progrwfl INTEL 7716 IK brte EPfiOMj. 
27te 1 K tiyii EPROMi and □l^er canptiiblB 
i-nti EPWOMS. 

Pul p«rlphefil (ktw) in permcncni mamy 
Uw APPLE 1 1 10 program EPROMt tor Mh»- 



$94.95 




List . . . $200.00 




ADptetrtelSgent Subsystenn 

List . . . $180.00 



NAME 



ADDRESS 



CrTY 



STATE 



ZIP 



PHONE 



DESCRIPTION 



PRICE QUANTITY 



H 



□ 

B of A Card 



D 

MMterchirge 



Expiration Date _ 

Card # 

Signature 



Subtotal 

Calif. Residents 6% tax 

Shipping 

TOTAL AMOUNT ENCLOSED 



AMOUNT 



AIM 65 




AIM 65 IS fully assembled, tested and warranted. With the 
addition of a low cost, readily available power supply, it's 
ready to start working for you. 

AIM 65 features onboard thermal printer and 
alphanumeric display, and a terminal-style keyboard. It 
has an addressing capability up to 65K bytes, and comes 
with a user-dedicated IK or 4K RAM. Two installed 4K 
ROMS hold a powerful Advanced Interface Monitor 
program, and three spare sockets are included to expand 
on-board ROM or PROM up to 20K bytes. 

An Application Connector provides for attaching a TTY 
and one or two audio cassette recorders, and gives exter- 
nal access to the user-dedicated general purpose I/O lines. 

Also included as standard are a comprehensive AIM 65 
User's Manual, a handy pocket reference card, an R6500 
Hardware Manual, an R6500 Programming Manual and an 
AIM 65 schematic. 

AIM 65 is packaged on two compact modules. The 
circuit module is 12 inches wide and 10 inches long, the 
keyboard module is 12 inches wide and 4 inches long. 
They are connected by a detachable cable. 

THERMAL PRINTER 

Most desired feature on low-cost microcomputer systems . . . 

• Wide 20-column printout 

• Versatile 5x7 dot matrix format 

• Complete 64-character ASCII alphanumeric format 

• Fast 120 lines per minute 

• Quite thermal operation 

• Proven reliability 

FULL SIZE ALPHANUMERIC KEYBOARD 
Provides compatibility with system terminals - . . 

• Standard 54 key, terminal-style layout 

• 26 alphabetic characters 

• 10 numeric characters 

• 22 special characters 

• 9 control functions 

• 3 user-defined functions 

TRUE ALPHANUMERIC DISPLAY 

Provides legible and lengthy display . . . 

• 20 characters wide 

• 16-segment characters 

• High contrast monolithic characters 

• Complete 64-character ASCII alphanumeric format 
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PROVEN R6500 MICROCOMPUTER SYSTEM DEVICES 
Reliable, high performance NMOS technology . . . 

• R6502 Central Processing Unit (CPU), operating at 1 
MHz. Has 65K address capability, 13 addressing modes 
and true index capability. Simple but powerful 56 
instructions. 

• Read/Write Memory, using R2114 Static RAM devices. 
Available in IK byte and 4K byte versions. 

• 8K Monitor Program Memory, using R2332 Static ROM 
devices. Has sockets to accept additional 2332 ROM or 
2532 PROM devices, to expand on-board Program 
memory up to 20K bytes. 

• R6532 RAM-Input/Output-Timer (RIOT) combination 
device. Multipurpose circuit for AIM 65 Monitor functions. 

• Two R6522 Versatile Interface Adapter (VIA) devices, 
which support AIM 65 and user functions. Each VIA has 
two parallel and one serial 8-bit, bidirectional I/O ports, 
two 2-bit peripheral handshake control lines and two 
fully-programmable 16-bit interval timer/event counters. 

BUILT-IN EXPANSION CAPABILITY 

• 44-Pin Application Connector for peripheral add-ons 

• 44-Pin Expansion Connector has full system bus 

• Both connectors are KIM-1 compatible 

TTY AND AUDIO CASSETTE INTERFACES 

Standard interface to low-cost peripherals . . . 

• 20 ma. current loop TTY interface 

• Interface for two audio cassette recorders 

• Two audio cassette formats: ASCII KIM-1 compatible 
and binary, blocked file assembler compatible 

ROM RESIDENT ADVANCED INTERACTIVE MONITOR 

Advanced features found only on larger systems . . . 
Monitor-generated prompts 
Single keystroke commands 
Address independent data entry 
Debug aids 
Error messages 
Option and user interface linkage 

ADVANCED INTERACTIVE MONITOR COMMANDS 

Major Function Entry 
Instruction Entry and Disassembly 
Display/Aiter Registers and Memory 
Manipulate Breakpoints 
Control Instruction/Trace 
Control Peripheral Devices 
Call User-Defined Functions 
Comprehensive Text Editor 

LOW COST PLUG-IN ROM OPTIONS 

4K Assembler— symbolic, two-pass 
8K BASIC Interpreter 

POWER SUPPLY SPECIFICATIONS 

-f- 5 VDC ± 5% regulated @ 2.0 amps (max) 
-1-24 VDC ± 15% unregulated @ 2.5 amps (peak) 
0.5 amps average 

PRICE: $375.00 (IK RAM) 

Plus $4.00 UPS (shipped in U.S. must give street address), 
$10 parcel post to APO's, FPO's, Alaska, Hawaii, Canada, 
$25 air mail to all other countries 

We manufacture a complete line of high quality expansion 
boards. Use reader service card to be added to our mailing 
list, or U.S. residents send $1.00 (International send $3.00 
U.S.) for airmail delivery of our complete catalog. 




ENTERPRISES 



2967 W, Fairmount Avenue 
Phoen*K AZ 85017 
(602)265-7564 
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